home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1993-04-04 | 18.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 21 | 52 75 6e 49 6d 61 67 65 |..... >!|RunImage|
|00000010| 0d 00 14 05 f4 0d 00 1e | 16 f4 20 4d 61 63 72 6f |........|.. Macro|
|00000020| 73 20 76 65 72 73 69 6f | 6e 20 31 0d 00 28 05 f4 |s versio|n 1..(..|
|00000030| 0d 00 32 28 f4 20 a9 20 | 50 61 75 6c 20 43 6c 69 |..2(. . |Paul Cli|
|00000040| 66 66 6f 72 64 20 6f 66 | 20 44 6f 67 67 79 53 6f |fford of| DoggySo|
|00000050| 66 74 2c 20 31 39 39 33 | 0d 00 3c 05 3a 0d 00 46 |ft, 1993|..<.:..F|
|00000060| 05 3a 0d 00 50 74 ee 20 | 85 20 ff 22 53 65 74 20 |.:..Pt. |. ."Set |
|00000070| 45 72 72 6f 72 24 53 74 | 75 66 66 20 45 52 4c 3d |Error$St|uff ERL=|
|00000080| 22 2b c3 28 9e 29 2b 22 | 20 45 52 52 3d 22 2b c3 |"+.(.)+"| ERR="+.|
|00000090| 28 9f 29 2b 22 20 52 45 | 50 4f 52 54 24 3d 22 2b |(.)+" RE|PORT$="+|
|000000a0| f6 24 3a f1 20 22 46 61 | 74 61 6c 20 73 74 61 72 |.$:. "Fa|tal star|
|000000b0| 74 20 75 70 20 65 72 72 | 6f 72 2c 20 73 65 65 20 |t up err|or, see |
|000000c0| 3c 45 72 72 6f 72 24 53 | 74 75 66 66 3e 21 21 22 |<Error$S|tuff>!!"|
|000000d0| 3a ef 20 37 3a e0 0d 00 | 5a 05 3a 0d 00 64 19 f2 |:. 7:...|Z.:..d..|
|000000e0| 69 6e 69 74 69 61 6c 69 | 73 65 5f 76 61 72 69 61 |initiali|se_varia|
|000000f0| 62 6c 65 73 0d 00 6e 14 | f2 69 6e 69 74 69 61 6c |bles..n.|.initial|
|00000100| 69 73 65 5f 74 61 73 6b | 0d 00 78 24 f2 6c 6f 61 |ise_task|..x$.loa|
|00000110| 64 5f 6d 61 63 72 6f 73 | 28 6d 61 63 72 6f 73 24 |d_macros|(macros$|
|00000120| 2b 22 2e 44 65 66 61 75 | 6c 74 22 29 0d 00 82 18 |+".Defau|lt")....|
|00000130| f2 63 72 65 61 74 65 5f | 69 63 6f 6e 62 61 72 5f |.create_|iconbar_|
|00000140| 69 63 6f 6e 0d 00 8c 16 | ee 20 85 20 f2 65 72 72 |icon....|. . .err|
|00000150| 6f 72 5f 68 61 6e 64 6c | 65 72 0d 00 96 11 f2 70 |or_handl|er.....p|
|00000160| 6f 6c 6c 69 6e 67 5f 6c | 6f 6f 70 0d 00 a0 12 f2 |olling_l|oop.....|
|00000170| 73 68 75 74 64 6f 77 6e | 5f 74 61 73 6b 0d 00 aa |shutdown|_task...|
|00000180| 05 3a 0d 00 b4 05 3a 0d | 00 be 05 e0 0d 00 c8 05 |.:....:.|........|
|00000190| 3a 0d 00 d2 05 3a 0d 00 | dc 20 f4 20 2a 2a 20 49 |:....:..|. . ** I|
|000001a0| 6e 69 74 69 61 6c 69 73 | 65 20 76 61 72 69 61 62 |nitialis|e variab|
|000001b0| 6c 65 73 20 2a 2a 0d 00 | e6 1b dd 20 f2 69 6e 69 |les **..|... .ini|
|000001c0| 74 69 61 6c 69 73 65 5f | 76 61 72 69 61 62 6c 65 |tialise_|variable|
|000001d0| 73 0d 00 f0 14 20 de 20 | 72 65 61 64 5f 76 61 72 |s.... . |read_var|
|000001e0| 25 20 32 35 36 0d 00 fa | 06 20 3a 0d 01 04 25 20 |% 256...|. :...% |
|000001f0| 70 72 6f 67 72 61 6d 24 | 3d a4 72 65 61 64 5f 76 |program$|=.read_v|
|00000200| 61 72 28 22 4d 61 63 72 | 6f 73 24 44 69 72 22 29 |ar("Macr|os$Dir")|
|00000210| 0d 01 0e 2e 20 6d 61 63 | 72 6f 73 24 3d a4 72 65 |.... mac|ros$=.re|
|00000220| 61 64 5f 76 61 72 28 22 | 4d 61 63 72 6f 73 24 44 |ad_var("|Macros$D|
|00000230| 69 72 22 29 2b 22 2e 4d | 61 63 72 6f 73 22 0d 01 |ir")+".M|acros"..|
|00000240| 18 34 20 72 65 73 6f 75 | 72 63 65 73 24 3d a4 72 |.4 resou|rces$=.r|
|00000250| 65 61 64 5f 76 61 72 28 | 22 4d 61 63 72 6f 73 24 |ead_var(|"Macros$|
|00000260| 44 69 72 22 29 2b 22 2e | 52 65 73 6f 75 72 63 65 |Dir")+".|Resource|
|00000270| 73 22 0d 01 22 16 20 69 | 63 6f 6e 5f 70 6f 73 69 |s"..". i|con_posi|
|00000280| 74 69 6f 6e 25 3d 2d 31 | 0d 01 2c 2d 20 6d 65 6e |tion%=-1|..,- men|
|00000290| 75 5f 73 69 7a 65 25 3d | a4 73 69 7a 65 5f 6f 66 |u_size%=|.size_of|
|000002a0| 28 72 65 73 6f 75 72 63 | 65 73 24 2b 22 2e 4d 65 |(resourc|es$+".Me|
|000002b0| 6e 75 73 22 29 0d 01 36 | 34 20 73 70 72 69 74 65 |nus")..6|4 sprite|
|000002c0| 73 5f 73 69 7a 65 25 3d | a4 73 69 7a 65 5f 6f 66 |s_size%=|.size_of|
|000002d0| 28 72 65 73 6f 75 72 63 | 65 73 24 2b 22 2e 53 70 |(resourc|es$+".Sp|
|000002e0| 72 69 74 65 73 22 29 2b | 34 0d 01 40 2c 20 63 6f |rites")+|4..@, co|
|000002f0| 64 65 5f 73 69 7a 65 25 | 3d a4 73 69 7a 65 5f 6f |de_size%|=.size_o|
|00000300| 66 28 72 65 73 6f 75 72 | 63 65 73 24 2b 22 2e 43 |f(resour|ces$+".C|
|00000310| 6f 64 65 22 29 0d 01 4a | 4a 20 c8 99 20 22 4d 65 |ode")..J|J .. "Me|
|00000320| 73 73 61 67 65 54 72 61 | 6e 73 5f 46 69 6c 65 49 |ssageTra|ns_FileI|
|00000330| 6e 66 6f 22 2c 2c 72 65 | 73 6f 75 72 63 65 73 24 |nfo",,re|sources$|
|00000340| 2b 22 2e 4d 65 73 73 61 | 67 65 73 22 20 b8 20 2c |+".Messa|ges" . ,|
|00000350| 2c 6d 65 73 73 61 67 65 | 73 5f 73 69 7a 65 25 0d |,message|s_size%.|
|00000360| 01 54 06 20 3a 0d 01 5e | 38 20 de 20 62 6c 6f 63 |.T. :..^|8 . bloc|
|00000370| 6b 25 20 34 30 39 36 2c | 6d 65 6e 75 25 20 6d 65 |k% 4096,|menu% me|
|00000380| 6e 75 5f 73 69 7a 65 25 | 2c 69 6e 64 69 72 25 20 |nu_size%|,indir% |
|00000390| 34 30 39 36 2c 74 65 78 | 74 25 20 31 36 0d 01 68 |4096,tex|t% 16..h|
|000003a0| 3d 20 de 20 73 70 72 69 | 74 65 25 20 31 36 2c 65 |= . spri|te% 16,e|
|000003b0| 72 72 6f 72 5f 62 6c 6f | 63 6b 25 20 32 35 36 2c |rror_blo|ck% 256,|
|000003c0| 73 70 72 69 74 65 5f 61 | 72 65 61 25 20 73 70 72 |sprite_a|rea% spr|
|000003d0| 69 74 65 73 5f 73 69 7a | 65 25 0d 01 72 3e 20 de |ites_siz|e%..r> .|
|000003e0| 20 63 6f 64 65 25 20 63 | 6f 64 65 5f 73 69 7a 65 | code% c|ode_size|
|000003f0| 25 2c 6d 61 63 72 6f 25 | 20 32 35 36 2c 73 61 76 |%,macro%| 256,sav|
|00000400| 65 5f 61 72 65 61 25 20 | 31 30 30 30 2c 72 65 63 |e_area% |1000,rec|
|00000410| 65 69 76 65 25 20 33 32 | 0d 01 7c 2e 20 de 20 6d |eive% 32|..|. . m|
|00000420| 65 73 73 61 67 65 73 25 | 20 6d 65 73 73 61 67 65 |essages%| message|
|00000430| 73 5f 73 69 7a 65 25 2c | 6d 73 67 5f 68 61 6e 64 |s_size%,|msg_hand|
|00000440| 6c 65 25 20 31 36 0d 01 | 86 3c 20 21 72 65 63 65 |le% 16..|.< !rece|
|00000450| 69 76 65 25 3d 32 3a 72 | 65 63 65 69 76 65 25 21 |ive%=2:r|eceive%!|
|00000460| 34 3d 33 3a 72 65 63 65 | 69 76 65 25 21 38 3d 31 |4=3:rece|ive%!8=1|
|00000470| 30 3a 72 65 63 65 69 76 | 65 25 21 31 32 3d 26 35 |0:receiv|e%!12=&5|
|00000480| 30 32 0d 01 90 3d 20 72 | 65 63 65 69 76 65 25 21 |02...= r|eceive%!|
|00000490| 31 36 3d 26 34 30 30 63 | 32 3a 72 65 63 65 69 76 |16=&400c|2:receiv|
|000004a0| 65 25 21 32 30 3d 26 34 | 35 37 38 32 3a 72 65 63 |e%!20=&4|5782:rec|
|000004b0| 65 69 76 65 25 21 32 34 | 3d 26 34 35 37 38 33 0d |eive%!24|=&45783.|
|000004c0| 01 9a 12 20 72 65 63 65 | 69 76 65 25 21 32 38 3d |... rece|ive%!28=|
|000004d0| 30 0d 01 a4 06 20 3a 0d | 01 ae 31 20 de 20 62 75 |0.... :.|..1 . bu|
|000004e0| 74 5f 6f 6b 25 20 33 32 | 2c 62 75 74 5f 6f 6b 71 |t_ok% 32|,but_okq|
|000004f0| 75 69 74 25 20 33 32 2c | 62 75 74 5f 6f 6b 63 61 |uit% 32,|but_okca|
|00000500| 6e 63 65 6c 25 20 33 32 | 0d 01 b8 19 20 24 62 75 |ncel% 32|.... $bu|
|00000510| 74 5f 6f 6b 25 3d 22 4f | 4b 22 2b c4 34 2c bd 30 |t_ok%="O|K"+.4,.0|
|00000520| 29 0d 01 c2 27 20 24 62 | 75 74 5f 6f 6b 71 75 69 |)...' $b|ut_okqui|
|00000530| 74 25 3d 22 4f 4b 22 2b | c4 33 2c bd 30 29 2b 22 |t%="OK"+|.3,.0)+"|
|00000540| 51 75 69 74 22 2b bd 30 | 0d 01 cc 2b 20 24 62 75 |Quit"+.0|...+ $bu|
|00000550| 74 5f 6f 6b 63 61 6e 63 | 65 6c 25 3d 22 4f 4b 22 |t_okcanc|el%="OK"|
|00000560| 2b c4 33 2c bd 30 29 2b | 22 43 61 6e 63 65 6c 22 |+.3,.0)+|"Cancel"|
|00000570| 2b bd 30 0d 01 d6 1d 20 | 58 44 72 61 67 41 53 70 |+.0.... |XDragASp|
|00000580| 72 69 74 65 5f 53 74 6f | 70 3d 26 36 32 34 30 31 |rite_Sto|p=&62401|
|00000590| 0d 01 e0 06 20 3a 0d 01 | ea 3d 20 69 6e 64 69 72 |.... :..|.= indir|
|000005a0| 65 6e 64 25 3d 69 6e 64 | 69 72 25 2b 34 30 39 36 |end%=ind|ir%+4096|
|000005b0| 3a 24 74 65 78 74 25 3d | 22 52 65 61 64 79 22 3a |:$text%=|"Ready":|
|000005c0| 24 73 70 72 69 74 65 25 | 3d 22 73 21 4d 61 63 72 |$sprite%|="s!Macr|
|000005d0| 6f 73 22 0d 01 f4 41 20 | 21 73 70 72 69 74 65 5f |os"...A |!sprite_|
|000005e0| 61 72 65 61 25 3d 73 70 | 72 69 74 65 73 5f 73 69 |area%=sp|rites_si|
|000005f0| 7a 65 25 3a 70 6f 6c 6c | 5f 6d 61 73 6b 25 3d 25 |ze%:poll|_mask%=%|
|00000600| 30 30 30 31 31 31 31 31 | 31 31 30 30 31 30 31 31 |00011111|11001011|
|00000610| 30 30 30 30 0d 01 fe 3d | 20 6b 69 6c 6c 5f 74 61 |0000...=| kill_ta|
|00000620| 73 6b 25 3d a3 3a 6f 75 | 72 5f 74 61 73 6b 24 3d |sk%=.:ou|r_task$=|
|00000630| 22 4d 61 63 72 6f 73 22 | 3a 74 61 73 6b 73 25 3d |"Macros"|:tasks%=|
|00000640| 34 3a 6f 75 74 70 75 74 | 5f 73 70 65 65 64 25 3d |4:output|_speed%=|
|00000650| 32 0d 02 08 42 20 69 6e | 73 65 72 74 5f 73 65 6c |2...B in|sert_sel|
|00000660| 66 25 3d 30 3a 6f 75 74 | 70 75 74 25 3d 30 3a 6e |f%=0:out|put%=0:n|
|00000670| 65 77 6c 69 6e 65 25 3d | 31 33 3a 6f 6c 64 5f 6b |ewline%=|13:old_k|
|00000680| 65 79 25 3d 2d 31 3a 74 | 6f 5f 77 69 6e 64 6f 77 |ey%=-1:t|o_window|
|00000690| 25 3d 30 0d 02 12 22 20 | 6c 6f 63 6b 25 3d b9 3a |%=0..." |lock%=.:|
|000006a0| 62 65 65 70 65 64 5f 61 | 74 25 3d a3 3a 65 72 72 |beeped_a|t%=.:err|
|000006b0| 6f 72 25 3d 30 0d 02 1c | 05 e1 0d 02 26 05 3a 0d |or%=0...|....&.:.|
|000006c0| 02 30 05 3a 0d 02 3a 1b | f4 20 2a 2a 20 49 6e 69 |.0.:..:.|. ** Ini|
|000006d0| 74 69 61 6c 69 73 65 20 | 74 61 73 6b 20 2a 2a 0d |tialise |task **.|
|000006e0| 02 44 16 dd 20 f2 69 6e | 69 74 69 61 6c 69 73 65 |.D.. .in|itialise|
|000006f0| 5f 74 61 73 6b 0d 02 4e | 09 20 ea 20 75 25 0d 02 |_task..N|. . u%..|
|00000700| 58 06 20 3a 0d 02 62 47 | 20 c8 99 20 22 57 69 6d |X. :..bG| .. "Wim|
|00000710| 70 5f 49 6e 69 74 69 61 | 6c 69 73 65 22 2c 33 30 |p_Initia|lise",30|
|00000720| 30 2c 26 34 62 35 33 34 | 31 35 34 2c 6f 75 72 5f |0,&4b534|154,our_|
|00000730| 74 61 73 6b 24 2c 72 65 | 63 65 69 76 65 25 20 b8 |task$,re|ceive% .|
|00000740| 20 2c 6f 75 72 5f 74 61 | 73 6b 25 0d 02 6c 32 20 | ,our_ta|sk%..l2 |
|00000750| c8 99 20 22 57 69 6d 70 | 45 78 74 5f 49 6e 69 74 |.. "Wimp|Ext_Init|
|00000760| 69 61 6c 69 73 65 22 2c | 31 34 2c 6f 75 72 5f 74 |ialise",|14,our_t|
|00000770| 61 73 6b 25 2c 25 31 31 | 30 30 30 31 31 0d 02 76 |ask%,%11|00011..v|
|00000780| 06 20 3a 0d 02 80 30 20 | c8 99 20 22 4f 53 5f 46 |. :...0 |.. "OS_F|
|00000790| 69 6c 65 22 2c 31 36 2c | 72 65 73 6f 75 72 63 65 |ile",16,|resource|
|000007a0| 73 24 2b 22 2e 4d 65 6e | 75 73 22 2c 6d 65 6e 75 |s$+".Men|us",menu|
|000007b0| 25 2c 30 0d 02 8a 3d 20 | c8 99 20 22 4f 53 5f 53 |%,0...= |.. "OS_S|
|000007c0| 70 72 69 74 65 4f 70 22 | 2c 26 31 30 61 2c 73 70 |priteOp"|,&10a,sp|
|000007d0| 72 69 74 65 5f 61 72 65 | 61 25 2c 72 65 73 6f 75 |rite_are|a%,resou|
|000007e0| 72 63 65 73 24 2b 22 2e | 53 70 72 69 74 65 73 22 |rces$+".|Sprites"|
|000007f0| 0d 02 94 2f 20 c8 99 20 | 22 4f 53 5f 46 69 6c 65 |.../ .. |"OS_File|
|00000800| 22 2c 31 36 2c 72 65 73 | 6f 75 72 63 65 73 24 2b |",16,res|ources$+|
|00000810| 22 2e 43 6f 64 65 22 2c | 63 6f 64 65 25 2c 30 0d |".Code",|code%,0.|
|00000820| 02 9e 37 20 73 65 6e 64 | 5f 73 74 72 69 6e 67 3d |..7 send|_string=|
|00000830| 63 6f 64 65 25 2b 63 6f | 64 65 25 21 30 3a 63 68 |code%+co|de%!0:ch|
|00000840| 65 63 6b 5f 6b 65 79 73 | 3d 63 6f 64 65 25 2b 63 |eck_keys|=code%+c|
|00000850| 6f 64 65 25 21 34 0d 02 | a8 4c 20 c8 99 20 22 4d |ode%!4..|.L .. "M|
|00000860| 65 73 73 61 67 65 54 72 | 61 6e 73 5f 4f 70 65 6e |essageTr|ans_Open|
|00000870| 46 69 6c 65 22 2c 6d 73 | 67 5f 68 61 6e 64 6c 65 |File",ms|g_handle|
|00000880| 25 2c 72 65 73 6f 75 72 | 63 65 73 24 2b 22 2e 4d |%,resour|ces$+".M|
|00000890| 65 73 73 61 67 65 73 22 | 2c 6d 65 73 73 61 67 65 |essages"|,message|
|000008a0| 73 25 0d 02 b2 06 20 3a | 0d 02 bc 33 20 21 62 6c |s%.... :|...3 !bl|
|000008b0| 6f 63 6b 25 3d 30 3a 62 | 6c 6f 63 6b 25 21 34 3d |ock%=0:b|lock%!4=|
|000008c0| 30 3a 62 6c 6f 63 6b 25 | 21 38 3d 30 3a 62 6c 6f |0:block%|!8=0:blo|
|000008d0| 63 6b 25 21 31 32 3d 25 | 30 31 30 0d 02 c6 6f 20 |ck%!12=%|010...o |
|000008e0| c8 99 20 22 57 69 6d 70 | 45 78 74 5f 4c 6f 61 64 |.. "Wimp|Ext_Load|
|000008f0| 54 65 6d 70 6c 61 74 65 | 73 22 2c 62 6c 6f 63 6b |Template|s",block|
|00000900| 25 2c 62 6c 6f 63 6b 25 | 2b 31 36 2c 69 6e 64 69 |%,block%|+16,indi|
|00000910| 72 25 2c 69 6e 64 69 72 | 65 6e 64 25 2c 2d 31 2c |r%,indir|end%,-1,|
|00000920| 72 65 73 6f 75 72 63 65 | 73 24 2b 22 2e 54 65 6d |resource|s$+".Tem|
|00000930| 70 6c 61 74 65 73 22 2c | 73 70 72 69 74 65 5f 61 |plates",|sprite_a|
|00000940| 72 65 61 25 20 b8 20 2c | 75 25 0d 02 d0 32 20 69 |rea% . ,|u%...2 i|
|00000950| 6e 66 6f 25 3d 21 62 6c | 6f 63 6b 25 3a 6d 61 63 |nfo%=!bl|ock%:mac|
|00000960| 72 6f 73 25 3d 62 6c 6f | 63 6b 25 21 34 3a 6c 6f |ros%=blo|ck%!4:lo|
|00000970| 61 64 25 3d 62 6c 6f 63 | 6b 25 21 38 0d 02 da 2f |ad%=bloc|k%!8.../|
|00000980| 20 75 25 21 36 34 3d 31 | 3a c8 99 20 22 57 69 6d | u%!64=1|:.. "Wim|
|00000990| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|000009a0| 2c 75 25 20 b8 20 73 61 | 76 65 25 0d 02 e4 06 20 |,u% . sa|ve%.... |
|000009b0| 3a 0d 02 ee 3d 20 6d 61 | 69 6e 5f 6d 65 6e 75 25 |:...= ma|in_menu%|
|000009c0| 3d 6d 65 6e 75 25 3a 6d | 61 69 6e 5f 6d 65 6e 75 |=menu%:m|ain_menu|
|000009d0| 25 21 33 32 3d 69 6e 66 | 6f 25 3a 6d 61 69 6e 5f |%!32=inf|o%:main_|
|000009e0| 6d 65 6e 75 25 21 38 30 | 3d 73 61 76 65 25 0d 02 |menu%!80|=save%..|
|000009f0| f8 49 20 77 69 6e 64 6f | 77 5f 6d 65 6e 75 25 3d |.I windo|w_menu%=|
|00000a00| 6d 65 6e 75 25 2b 31 32 | 34 3a 77 69 6e 64 6f 77 |menu%+12|4:window|
|00000a10| 5f 6d 65 6e 75 25 21 33 | 32 2b 3d 6d 65 6e 75 25 |_menu%!3|2+=menu%|
|00000a20| 3a 77 69 6e 64 6f 77 5f | 6d 65 6e 75 25 21 35 36 |:window_|menu%!56|
|00000a30| 2b 3d 6d 65 6e 75 25 0d | 03 02 1b 20 77 69 6e 64 |+=menu%.|... wind|
|00000a40| 6f 77 5f 6d 65 6e 75 25 | 21 38 30 2b 3d 6d 65 6e |ow_menu%|!80+=men|
|00000a50| 75 25 0d 03 0c 06 20 3a | 0d 03 16 3d 20 73 70 65 |u%.... :|...= spe|
|00000a60| 65 64 5f 6d 65 6e 75 25 | 3d 77 69 6e 64 6f 77 5f |ed_menu%|=window_|
|00000a70| 6d 65 6e 75 25 21 33 32 | 3a 6f 75 74 70 75 74 5f |menu%!32|:output_|
|00000a80| 6d 65 6e 75 25 3d 77 69 | 6e 64 6f 77 5f 6d 65 6e |menu%=wi|ndow_men|
|00000a90| 75 25 21 35 36 0d 03 20 | 22 20 6e 65 77 6c 69 6e |u%!56.. |" newlin|
|00000aa0| 65 5f 6d 65 6e 75 25 3d | 77 69 6e 64 6f 77 5f 6d |e_menu%=|window_m|
|00000ab0| 65 6e 75 25 21 38 30 0d | 03 2a 05 e1 0d 03 34 05 |enu%!80.|.*....4.|
|00000ac0| 3a 0d 03 3e 05 3a 0d 03 | 48 1f f4 20 2a 2a 20 43 |:..>.:..|H.. ** C|
|00000ad0| 72 65 61 74 65 20 69 63 | 6f 6e 62 61 72 20 69 63 |reate ic|onbar ic|
|00000ae0| 6f 6e 20 2a 2a 0d 03 52 | 1a dd 20 f2 63 72 65 61 |on **..R|.. .crea|
|00000af0| 74 65 5f 69 63 6f 6e 62 | 61 72 5f 69 63 6f 6e 0d |te_iconb|ar_icon.|
|00000b00| 03 5c 1c 20 62 6c 6f 63 | 6b 25 21 30 3d 69 63 6f |.\. bloc|k%!0=ico|
|00000b10| 6e 5f 70 6f 73 69 74 69 | 6f 6e 25 0d 03 66 1c 20 |n_positi|on%..f. |
|00000b20| 62 6c 6f 63 6b 25 21 34 | 3d 30 3a 62 6c 6f 63 6b |block%!4|=0:block|
|00000b30| 25 21 38 3d 2d 31 36 0d | 03 70 14 20 62 6c 6f 63 |%!8=-16.|.p. bloc|
|00000b40| 6b 25 21 31 32 3d 36 38 | 2b 31 36 0d 03 7a 14 20 |k%!12=68|+16..z. |
|00000b50| 62 6c 6f 63 6b 25 21 31 | 36 3d 36 38 2b 32 30 0d |block%!1|6=68+20.|
|00000b60| 03 84 30 20 62 6c 6f 63 | 6b 25 21 32 30 3d 25 30 |..0 bloc|k%!20=%0|
|00000b70| 30 30 31 30 31 31 31 30 | 30 30 30 30 30 30 30 30 |00101110|00000000|
|00000b80| 30 31 31 30 30 30 31 30 | 30 31 30 31 30 31 31 0d |01100010|0101011.|
|00000b90| 03 8e 2e 20 f4 20 20 20 | 20 20 20 20 20 20 20 20 |... . | |
|00000ba0| 5e 20 20 20 5e 20 20 20 | 5e 20 20 20 5e 20 20 20 |^ ^ |^ ^ |
|00000bb0| 5e 20 20 20 5e 20 20 20 | 5e 20 20 20 5e 0d 03 98 |^ ^ |^ ^...|
|00000bc0| 14 20 62 6c 6f 63 6b 25 | 21 32 34 3d 74 65 78 74 |. block%|!24=text|
|00000bd0| 25 0d 03 a2 16 20 62 6c | 6f 63 6b 25 21 32 38 3d |%.... bl|ock%!28=|
|00000be0| 73 70 72 69 74 65 25 0d | 03 ac 10 20 62 6c 6f 63 |sprite%.|... bloc|
|00000bf0| 6b 25 21 33 32 3d 38 0d | 03 b6 30 20 c8 99 20 22 |k%!32=8.|..0 .. "|
|00000c00| 57 69 6d 70 5f 43 72 65 | 61 74 65 49 63 6f 6e 22 |Wimp_Cre|ateIcon"|
|00000c10| 2c 2c 62 6c 6f 63 6b 25 | 20 b8 20 69 63 6f 6e 5f |,,block%| . icon_|
|00000c20| 68 61 6e 64 6c 65 25 0d | 03 c0 05 e1 0d 03 ca 05 |handle%.|........|
|00000c30| 3a 0d 03 d4 05 3a 0d 03 | de 18 f4 20 2a 2a 20 50 |:....:..|... ** P|
|00000c40| 6f 6c 6c 69 6e 67 20 6c | 6f 6f 70 20 2a 2a 0d 03 |olling l|oop **..|
|00000c50| e8 13 dd 20 f2 70 6f 6c | 6c 69 6e 67 5f 6c 6f 6f |... .pol|ling_loo|
|00000c60| 70 0d 03 f2 06 20 f5 0d | 03 fc 24 20 20 c8 99 20 |p.... ..|..$ .. |
|00000c70| 22 58 57 69 6d 70 45 78 | 74 5f 53 6c 61 62 49 63 |"XWimpEx|t_SlabIc|
|00000c80| 6f 6e 22 2c 2c 2c 30 2c | 30 2c 30 0d 04 06 1a 20 |on",,,0,|0,0.... |
|00000c90| 20 c8 99 20 22 57 69 6d | 70 45 78 74 5f 50 72 65 | .. "Wim|pExt_Pre|
|00000ca0| 50 6f 6c 6c 22 0d 04 10 | 30 20 20 c8 99 20 22 57 |Poll"...|0 .. "W|
|00000cb0| 69 6d 70 5f 50 6f 6c 6c | 22 2c 70 6f 6c 6c 5f 6d |imp_Poll|",poll_m|
|00000cc0| 61 73 6b 25 2c 62 6c 6f | 63 6b 25 20 b8 20 72 65 |ask%,blo|ck% . re|
|00000cd0| 61 73 6f 6e 25 0d 04 1a | 3c 20 20 c8 99 20 22 57 |ason%...|< .. "W|
|00000ce0| 69 6d 70 45 78 74 5f 41 | 63 74 69 6f 6e 22 2c 6f |impExt_A|ction",o|
|00000cf0| 75 72 5f 74 61 73 6b 25 | 2c 62 6c 6f 63 6b 25 2c |ur_task%|,block%,|
|00000d00| 72 65 61 73 6f 6e 25 20 | b8 20 72 65 61 73 6f 6e |reason% |. reason|
|00000d10| 25 0d 04 24 12 20 20 c8 | 8e 20 72 65 61 73 6f 6e |%..$. .|. reason|
|00000d20| 25 20 ca 0d 04 2e 1a 20 | 20 20 c9 20 20 20 20 20 |% ..... | . |
|00000d30| 30 3a f2 6e 75 6c 6c 5f | 65 76 65 6e 74 0d 04 38 |0:.null_|event..8|
|00000d40| 2e 20 20 20 c9 20 20 20 | 20 20 31 3a c8 99 20 22 |. . | 1:.. "|
|00000d50| 57 69 6d 70 45 78 74 5f | 41 75 74 6f 52 65 64 72 |WimpExt_|AutoRedr|
|00000d60| 61 77 22 2c 2c 62 6c 6f | 63 6b 25 0d 04 42 2e 20 |aw",,blo|ck%..B. |
|00000d70| 20 20 c9 20 20 20 20 20 | 32 3a c8 99 20 22 57 69 | . |2:.. "Wi|
|00000d80| 6d 70 45 78 74 5f 4f 70 | 65 6e 4c 69 6e 6b 65 64 |mpExt_Op|enLinked|
|00000d90| 22 2c 2c 62 6c 6f 63 6b | 25 0d 04 4c 2f 20 20 20 |",,block|%..L/ |
|00000da0| c9 20 20 20 20 20 33 3a | c8 99 20 22 57 69 6d 70 |. 3:|.. "Wimp|
|00000db0| 45 78 74 5f 43 6c 6f 73 | 65 4c 69 6e 6b 65 64 22 |Ext_Clos|eLinked"|
|00000dc0| 2c 2c 62 6c 6f 63 6b 25 | 0d 04 56 1d 20 20 20 c9 |,,block%|..V. .|
|00000dd0| 20 20 20 20 20 36 3a f2 | 6d 6f 75 73 65 5f 63 6c | 6:.|mouse_cl|
|00000de0| 69 63 6b 65 64 0d 04 60 | 1a 20 20 20 c9 20 20 20 |icked..`|. . |
|00000df0| 20 20 37 3a f2 64 72 61 | 67 5f 65 6e 64 65 64 0d | 7:.dra|g_ended.|
|00000e00| 04 6a 26 20 20 20 c9 20 | 20 20 20 20 38 3a f2 6b |.j& . | 8:.k|
|00000e10| 65 79 5f 70 72 65 73 73 | 65 64 28 62 6c 6f 63 6b |ey_press|ed(block|
|00000e20| 25 21 32 34 29 0d 04 74 | 22 20 20 20 c9 20 20 20 |%!24)..t|" . |
|00000e30| 20 20 39 3a f2 6d 65 6e | 75 5f 69 74 65 6d 5f 73 | 9:.men|u_item_s|
|00000e40| 65 6c 65 63 74 65 64 0d | 04 7e 20 20 20 20 c9 20 |elected.|.~ . |
|00000e50| 31 37 2c 31 38 3a f2 6d | 65 73 73 61 67 65 5f 72 |17,18:.m|essage_r|
|00000e60| 65 63 65 69 76 65 64 0d | 04 88 07 20 20 cb 0d 04 |eceived.|... ...|
|00000e70| 92 13 20 fd 20 6b 69 6c | 6c 5f 74 61 73 6b 25 3d |.. . kil|l_task%=|
|00000e80| b9 0d 04 9c 05 e1 0d 04 | a6 05 3a 0d 04 b0 05 3a |........|..:....:|
|00000e90| 0d 04 ba 1e f4 20 2a 2a | 20 48 61 6e 64 6c 65 20 |..... **| Handle |
|00000ea0| 6e 75 6c 6c 20 65 76 65 | 6e 74 73 20 2a 2a 0d 04 |null eve|nts **..|
|00000eb0| c4 11 dd 20 f2 6e 75 6c | 6c 5f 65 76 65 6e 74 0d |... .nul|l_event.|
|00000ec0| 04 ce 26 20 ea 20 73 74 | 72 69 6e 67 24 2c 63 68 |..& . st|ring$,ch|
|00000ed0| 61 72 61 63 74 65 72 25 | 2c 75 6e 74 69 6c 25 2c |aracter%|,until%,|
|00000ee0| 69 63 6f 6e 25 0d 04 d8 | 06 20 3a 0d 04 e2 15 20 |icon%...|. :.... |
|00000ef0| e7 20 28 74 61 73 6b 73 | 25 20 80 20 31 29 20 8c |. (tasks|% . 1) .|
|00000f00| 0d 04 ec 28 20 20 c8 99 | 20 22 57 69 6d 70 5f 47 |...( ..| "Wimp_G|
|00000f10| 65 74 43 61 72 65 74 50 | 6f 73 69 74 69 6f 6e 22 |etCaretP|osition"|
|00000f20| 2c 2c 62 6c 6f 63 6b 25 | 0d 04 f6 33 20 20 e7 20 |,,block%|...3 . |
|00000f30| 21 62 6c 6f 63 6b 25 3c | 3e 74 6f 5f 77 69 6e 64 |!block%<|>to_wind|
|00000f40| 6f 77 25 20 80 20 6f 75 | 74 70 75 74 25 3d 30 20 |ow% . ou|tput%=0 |
|00000f50| 80 20 6c 6f 63 6b 25 3d | b9 20 8c 0d 05 00 28 20 |. lock%=|. ....( |
|00000f60| 20 20 e7 20 62 65 65 70 | 65 64 5f 61 74 25 3d a3 | . beep|ed_at%=.|
|00000f70| 20 8c 20 ef 20 37 3a 62 | 65 65 70 65 64 5f 61 74 | . . 7:b|eeped_at|
|00000f80| 25 3d b9 0d 05 0a 07 20 | 20 cc 0d 05 14 13 20 20 |%=..... | ..... |
|00000f90| 20 62 65 65 70 65 64 5f | 61 74 25 3d a3 0d 05 1e | beeped_|at%=....|
|00000fa0| 38 20 20 20 e7 20 62 6c | 6f 63 6b 25 21 30 3d 6d |8 . bl|ock%!0=m|
|00000fb0| 61 63 72 6f 73 25 20 80 | 20 69 6e 73 65 72 74 5f |acros% .| insert_|
|00000fc0| 73 65 6c 66 25 3d 31 20 | 80 20 6f 75 74 70 75 74 |self%=1 |. output|
|00000fd0| 25 3d 30 20 8c 0d 05 28 | 31 20 20 20 20 24 6d 61 |%=0 ...(|1 $ma|
|00000fe0| 63 72 6f 25 3d a4 72 65 | 61 64 5f 69 63 6f 6e 28 |cro%=.re|ad_icon(|
|00000ff0| 6d 61 63 72 6f 73 25 2c | 72 65 61 64 5f 69 63 6f |macros%,|read_ico|
|00001000| 6e 25 29 2b bd 30 0d 05 | 32 08 20 20 20 cc 0d 05 |n%)+.0..|2. ...|
|00001010| 3c 46 20 20 20 20 c8 99 | 20 22 4f 53 5f 47 53 54 |<F ..| "OS_GST|
|00001020| 72 61 6e 73 22 2c a4 72 | 65 61 64 5f 69 63 6f 6e |rans",.r|ead_icon|
|00001030| 28 6d 61 63 72 6f 73 25 | 2c 72 65 61 64 5f 69 63 |(macros%|,read_ic|
|00001040| 6f 6e 25 29 2b 22 7c 40 | 22 2c 6d 61 63 72 6f 25 |on%)+"|@|",macro%|
|00001050| 2c 32 35 36 0d 05 46 08 | 20 20 20 cd 0d 05 50 29 |,256..F.| ...P)|
|00001060| 20 20 20 75 6e 74 69 6c | 25 3d 72 65 61 64 5f 70 | until|%=read_p|
|00001070| 6f 69 6e 74 65 72 25 2b | 6f 75 74 70 75 74 5f 73 |ointer%+|output_s|
|00001080| 70 65 65 64 25 0d 05 5a | 08 20 20 20 f5 0d 05 64 |peed%..Z|. ...d|
|00001090| 27 20 20 20 20 63 68 61 | 72 61 63 74 65 72 25 3d |' cha|racter%=|
|000010a0| 6d 61 63 72 6f 25 3f 72 | 65 61 64 5f 70 6f 69 6e |macro%?r|ead_poin|
|000010b0| 74 65 72 25 0d 05 6e 31 | 20 20 20 20 e7 20 63 68 |ter%..n1| . ch|
|000010c0| 61 72 61 63 74 65 72 25 | 3d 97 28 22 a4 22 29 20 |aracter%|=.(".") |
|000010d0| 8c 20 63 68 61 72 61 63 | 74 65 72 25 3d 6e 65 77 |. charac|ter%=new|
|000010e0| 6c 69 6e 65 25 0d 05 78 | 18 20 20 20 20 72 65 61 |line%..x|. rea|
|000010f0| 64 5f 70 6f 69 6e 74 65 | 72 25 2b 3d 31 0d 05 82 |d_pointe|r%+=1...|
|00001100| 1d 20 20 20 20 e7 20 6c | 6f 63 6b 25 20 80 20 6f |. . l|ock% . o|
|00001110| 75 74 70 75 74 25 3d 30 | 20 8c 0d 05 8c 2b 20 20 |utput%=0| ....+ |
|00001120| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 43 | .. "W|imp_GetC|
|00001130| 61 72 65 74 50 6f 73 69 | 74 69 6f 6e 22 2c 2c 62 |aretPosi|tion",,b|
|00001140| 6c 6f 63 6b 25 0d 05 96 | 20 20 20 20 20 20 e7 20 |lock%...| . |
|00001150| 21 62 6c 6f 63 6b 25 3c | 3e 74 6f 5f 77 69 6e 64 |!block%<|>to_wind|
|00001160| 6f 77 25 20 8c 0d 05 a0 | 2f 20 20 20 20 20 20 72 |ow% ....|/ r|
|00001170| 65 61 64 5f 70 6f 69 6e | 74 65 72 25 2d 3d 31 3a |ead_poin|ter%-=1:|
|00001180| 75 6e 74 69 6c 25 3d 72 | 65 61 64 5f 70 6f 69 6e |until%=r|ead_poin|
|00001190| 74 65 72 25 0d 05 aa 2b | 20 20 20 20 20 20 e7 20 |ter%...+| . |
|000011a0| 62 65 65 70 65 64 5f 61 | 74 25 3d a3 20 8c 20 ef |beeped_a|t%=. . .|
|000011b0| 20 37 3a 62 65 65 70 65 | 64 5f 61 74 25 3d b9 0d | 7:beepe|d_at%=..|
|000011c0| 05 b4 0a 20 20 20 20 20 | cc 0d 05 be 16 20 20 20 |... |..... |
|000011d0| 20 20 20 62 65 65 70 65 | 64 5f 61 74 25 3d a3 0d | beepe|d_at%=..|
|000011e0| 05 c8 0a 20 20 20 20 20 | cd 0d 05 d2 09 20 20 20 |... |..... |
|000011f0| 20 cd 0d 05 dc 3c 20 20 | 20 20 e7 20 62 65 65 70 | ....< | . beep|
|00001200| 65 64 5f 61 74 25 3d a3 | 20 8c 20 c8 99 20 22 4f |ed_at%=.| . .. "O|
|00001210| 53 5f 42 79 74 65 22 2c | 31 33 38 2c 6f 75 74 70 |S_Byte",|138,outp|
|00001220| 75 74 25 2c 63 68 61 72 | 61 63 74 65 72 25 0d 05 |ut%,char|acter%..|
|00001230| e6 36 20 20 20 fd 20 72 | 65 61 64 5f 70 6f 69 6e |.6 . r|ead_poin|
|00001240| 74 65 72 25 3d 75 6e 74 | 69 6c 25 20 84 20 6d 61 |ter%=unt|il% . ma|
|00001250| 63 72 6f 25 3f 72 65 61 | 64 5f 70 6f 69 6e 74 65 |cro%?rea|d_pointe|
|00001260| 72 25 3d 30 0d 05 f0 21 | 20 20 20 e7 20 6d 61 63 |r%=0...!| . mac|
|00001270| 72 6f 25 3f 72 65 61 64 | 5f 70 6f 69 6e 74 65 72 |ro%?read|_pointer|
|00001280| 25 3d 30 20 8c 0d 05 fa | 45 20 20 20 20 e7 20 28 |%=0 ....|E . (|
|00001290| 74 61 73 6b 73 25 20 80 | 20 31 29 20 8c 20 24 74 |tasks% .| 1) . $t|
|000012a0| 65 78 74 25 3d 22 52 65 | 61 64 79 22 3a f2 72 65 |ext%="Re|ady":.re|
|000012b0| 64 72 61 77 5f 69 63 6f | 6e 28 2d 32 2c 69 63 6f |draw_ico|n(-2,ico|
|000012c0| 6e 5f 68 61 6e 64 6c 65 | 25 29 0d 06 04 1c 20 20 |n_handle|%).... |
|000012d0| 20 20 74 61 73 6b 73 25 | 3d 74 61 73 6b 73 25 20 | tasks%|=tasks% |
|000012e0| 80 20 ac 28 31 29 0d 06 | 0e 2e 20 20 20 20 e7 20 |. .(1)..|.. . |
|000012f0| 74 61 73 6b 73 25 3d a3 | 20 8c 20 70 6f 6c 6c 5f |tasks%=.| . poll_|
|00001300| 6d 61 73 6b 25 3d 70 6f | 6c 6c 5f 6d 61 73 6b 25 |mask%=po|ll_mask%|
|00001310| 20 84 20 31 0d 06 18 08 | 20 20 20 cd 0d 06 22 07 | . 1....| ...".|
|00001320| 20 20 cd 0d 06 2c 06 20 | cd 0d 06 36 06 20 3a 0d | ...,. |...6. :.|
|00001330| 06 40 15 20 e7 20 28 74 | 61 73 6b 73 25 20 80 20 |.@. . (t|asks% . |
|00001340| 32 29 20 8c 0d 06 4a 28 | 20 20 c8 99 20 22 57 69 |2) ...J(| .. "Wi|
|00001350| 6d 70 5f 47 65 74 43 61 | 72 65 74 50 6f 73 69 74 |mp_GetCa|retPosit|
|00001360| 69 6f 6e 22 2c 2c 62 6c | 6f 63 6b 25 0d 06 54 33 |ion",,bl|ock%..T3|
|00001370| 20 20 e7 20 21 62 6c 6f | 63 6b 25 3c 3e 74 6f 5f | . !blo|ck%<>to_|
|00001380| 77 69 6e 64 6f 77 25 20 | 80 20 6f 75 74 70 75 74 |window% |. output|
|00001390| 25 3d 30 20 80 20 6c 6f | 63 6b 25 3d b9 20 8c 0d |%=0 . lo|ck%=. ..|
|000013a0| 06 5e 28 20 20 20 e7 20 | 62 65 65 70 65 64 5f 61 |.^( . |beeped_a|
|000013b0| 74 25 3d a3 20 8c 20 ef | 20 37 3a 62 65 65 70 65 |t%=. . .| 7:beepe|
|000013c0| 64 5f 61 74 25 3d b9 0d | 06 68 07 20 20 cc 0d 06 |d_at%=..|.h. ...|
|000013d0| 72 13 20 20 20 62 65 65 | 70 65 64 5f 61 74 25 3d |r. bee|ped_at%=|
|000013e0| a3 0d 06 7c 28 20 20 20 | 75 6e 74 69 6c 25 3d 8f |...|( |until%=.|
|000013f0| 23 72 65 61 64 5f 66 69 | 6c 65 25 2b 6f 75 74 70 |#read_fi|le%+outp|
|00001400| 75 74 5f 73 70 65 65 64 | 25 0d 06 86 08 20 20 20 |ut_speed|%.... |
|00001410| f5 0d 06 90 1f 20 20 20 | 20 63 68 61 72 61 63 74 |..... | charact|
|00001420| 65 72 25 3d 9a 23 72 65 | 61 64 5f 66 69 6c 65 25 |er%=.#re|ad_file%|
|00001430| 0d 06 9a 1d 20 20 20 20 | e7 20 6c 6f 63 6b 25 20 |.... |. lock% |
|00001440| 80 20 6f 75 74 70 75 74 | 25 3d 30 20 8c 0d 06 a4 |. output|%=0 ....|
|00001450| 2b 20 20 20 20 20 c8 99 | 20 22 57 69 6d 70 5f 47 |+ ..| "Wimp_G|
|00001460| 65 74 43 61 72 65 74 50 | 6f 73 69 74 69 6f 6e 22 |etCaretP|osition"|
|00001470| 2c 2c 62 6c 6f 63 6b 25 | 0d 06 ae 20 20 20 20 20 |,,block%|... |
|00001480| 20 e7 20 21 62 6c 6f 63 | 6b 25 3c 3e 74 6f 5f 77 | . !bloc|k%<>to_w|
|00001490| 69 6e 64 6f 77 25 20 8c | 0d 06 b8 39 20 20 20 20 |indow% .|...9 |
|000014a0| 20 20 cf 23 72 65 61 64 | 5f 66 69 6c 65 25 3d 8f | .#read|_file%=.|
|000014b0| 23 72 65 61 64 5f 66 69 | 6c 65 25 2d 31 3a 75 6e |#read_fi|le%-1:un|
|000014c0| 74 69 6c 25 3d 8f 23 72 | 65 61 64 5f 66 69 6c 65 |til%=.#r|ead_file|
|000014d0| 25 0d 06 c2 2b 20 20 20 | 20 20 20 e7 20 62 65 65 |%...+ | . bee|
|000014e0| 70 65 64 5f 61 74 25 3d | a3 20 8c 20 ef 20 37 3a |ped_at%=|. . . 7:|
|000014f0| 62 65 65 70 65 64 5f 61 | 74 25 3d b9 0d 06 cc 0a |beeped_a|t%=.....|
|00001500| 20 20 20 20 20 cc 0d 06 | d6 16 20 20 20 20 20 20 | ...|.. |
|00001510| 62 65 65 70 65 64 5f 61 | 74 25 3d a3 0d 06 e0 0a |beeped_a|t%=.....|
|00001520| 20 20 20 20 20 cd 0d 06 | ea 09 20 20 20 20 cd 0d | ...|.. ..|
|00001530| 06 f4 3c 20 20 20 20 e7 | 20 62 65 65 70 65 64 5f |..< .| beeped_|
|00001540| 61 74 25 3d a3 20 8c 20 | c8 99 20 22 4f 53 5f 42 |at%=. . |.. "OS_B|
|00001550| 79 74 65 22 2c 31 33 38 | 2c 6f 75 74 70 75 74 25 |yte",138|,output%|
|00001560| 2c 63 68 61 72 61 63 74 | 65 72 25 0d 06 fe 2b 20 |,charact|er%...+ |
|00001570| 20 20 fd 20 8f 23 72 65 | 61 64 5f 66 69 6c 65 25 | . .#re|ad_file%|
|00001580| 3d 75 6e 74 69 6c 25 20 | 84 20 c5 23 72 65 61 64 |=until% |. .#read|
|00001590| 5f 66 69 6c 65 25 0d 07 | 08 17 20 20 20 e7 20 c5 |_file%..|.. . .|
|000015a0| 23 72 65 61 64 5f 66 69 | 6c 65 25 20 8c 0d 07 12 |#read_fi|le% ....|
|000015b0| 14 20 20 20 20 d9 23 72 | 65 61 64 5f 66 69 6c 65 |. .#r|ead_file|
|000015c0| 25 0d 07 1c 45 20 20 20 | 20 e7 20 28 74 61 73 6b |%...E | . (task|
|000015d0| 73 25 20 80 20 32 29 20 | 8c 20 24 74 65 78 74 25 |s% . 2) |. $text%|
|000015e0| 3d 22 52 65 61 64 79 22 | 3a f2 72 65 64 72 61 77 |="Ready"|:.redraw|
|000015f0| 5f 69 63 6f 6e 28 2d 32 | 2c 69 63 6f 6e 5f 68 61 |_icon(-2|,icon_ha|
|00001600| 6e 64 6c 65 25 29 0d 07 | 26 1c 20 20 20 20 74 61 |ndle%)..|&. ta|
|00001610| 73 6b 73 25 3d 74 61 73 | 6b 73 25 20 80 20 ac 28 |sks%=tas|ks% . .(|
|00001620| 32 29 0d 07 30 2e 20 20 | 20 20 e7 20 74 61 73 6b |2)..0. | . task|
|00001630| 73 25 3d a3 20 8c 20 70 | 6f 6c 6c 5f 6d 61 73 6b |s%=. . p|oll_mask|
|00001640| 25 3d 70 6f 6c 6c 5f 6d | 61 73 6b 25 20 84 20 31 |%=poll_m|ask% . 1|
|00001650| 0d 07 3a 08 20 20 20 cd | 0d 07 44 07 20 20 cd 0d |..:. .|..D. ..|
|00001660| 07 4e 06 20 cd 0d 07 58 | 06 20 3a 0d 07 62 15 20 |.N. ...X|. :..b. |
|00001670| e7 20 28 74 61 73 6b 73 | 25 20 80 20 34 29 20 8c |. (tasks|% . 4) .|
|00001680| 0d 07 6c 19 20 20 69 63 | 6f 6e 25 3d ba 28 63 68 |..l. ic|on%=.(ch|
|00001690| 65 63 6b 5f 6b 65 79 73 | 29 0d 07 76 28 20 20 c8 |eck_keys|)..v( .|
|000016a0| 99 20 22 57 69 6d 70 5f | 47 65 74 43 61 72 65 74 |. "Wimp_|GetCaret|
|000016b0| 50 6f 73 69 74 69 6f 6e | 22 2c 2c 62 6c 6f 63 6b |Position|",,block|
|000016c0| 25 0d 07 80 2f 20 20 e7 | 20 69 63 6f 6e 25 20 80 |%.../ .| icon% .|
|000016d0| 20 69 63 6f 6e 25 3c 3e | 6f 6c 64 5f 6b 65 79 25 | icon%<>|old_key%|
|000016e0| 20 80 20 21 62 6c 6f 63 | 6b 25 3c 3e 2d 31 20 8c | . !bloc|k%<>-1 .|
|000016f0| 0d 07 8a 28 20 20 20 f2 | 65 6e 74 65 72 5f 6d 61 |...( .|enter_ma|
|00001700| 63 72 6f 28 77 69 6e 64 | 6f 77 25 2c 28 69 63 6f |cro(wind|ow%,(ico|
|00001710| 6e 25 2d 31 29 2a 32 29 | 0d 07 94 07 20 20 cd 0d |n%-1)*2)|.... ..|
|00001720| 07 9e 14 20 20 6f 6c 64 | 5f 6b 65 79 25 3d 69 63 |... old|_key%=ic|
|00001730| 6f 6e 25 0d 07 a8 06 20 | cd 0d 07 b2 05 e1 0d 07 |on%.... |........|
|00001740| bc 05 3a 0d 07 c6 05 3a | 0d 07 d0 1f f4 20 2a 2a |..:....:|..... **|
|00001750| 20 48 61 6e 64 6c 65 20 | 6d 6f 75 73 65 20 63 6c | Handle |mouse cl|
|00001760| 69 63 6b 73 20 2a 2a 0d | 07 da 14 dd 20 f2 6d 6f |icks **.|.... .mo|
|00001770| 75 73 65 5f 63 6c 69 63 | 6b 65 64 0d 07 e4 13 20 |use_clic|ked.... |
|00001780| c8 8e 20 62 6c 6f 63 6b | 25 21 31 32 20 ca 0d 07 |.. block|%!12 ...|
|00001790| ee 24 20 20 c9 20 20 20 | 20 20 20 2d 32 3a f2 69 |.$ . | -2:.i|
|000017a0| 63 6f 6e 62 61 72 5f 6d | 6f 75 73 65 5f 63 6c 69 |conbar_m|ouse_cli|
|000017b0| 63 6b 0d 07 f8 41 20 20 | c9 20 6d 61 63 72 6f 73 |ck...A |. macros|
|000017c0| 25 3a e7 20 28 74 61 73 | 6b 73 25 20 80 20 33 29 |%:. (tas|ks% . 3)|
|000017d0| 3d a3 20 8c 20 f2 6d 61 | 63 72 6f 73 5f 6d 6f 75 |=. . .ma|cros_mou|
|000017e0| 73 65 5f 63 6c 69 63 6b | 28 62 6c 6f 63 6b 25 21 |se_click|(block%!|
|000017f0| 31 36 29 0d 08 02 21 20 | 20 c9 20 20 20 73 61 76 |16)...! | . sav|
|00001800| 65 25 3a f2 73 61 76 65 | 5f 6d 6f 75 73 65 5f 63 |e%:.save|_mouse_c|
|00001810| 6c 69 63 6b 0d 08 0c 44 | 20 20 c9 20 20 20 6c 6f |lick...D| . lo|
|00001820| 61 64 25 3a e7 20 62 6c | 6f 63 6b 25 21 31 36 3d |ad%:. bl|ock%!16=|
|00001830| 32 20 80 20 28 62 6c 6f | 63 6b 25 21 38 3d 31 20 |2 . (blo|ck%!8=1 |
|00001840| 84 20 62 6c 6f 63 6b 25 | 21 38 3d 34 29 20 8c 20 |. block%|!8=4) . |
|00001850| f2 6c 6f 61 64 5f 6f 6b | 0d 08 16 06 20 cb 0d 08 |.load_ok|.... ...|
|00001860| 20 05 e1 0d 08 2a 05 3a | 0d 08 34 05 3a 0d 08 3e | ....*.:|..4.:..>|
|00001870| 2b f4 20 2a 2a 20 4d 6f | 75 73 65 20 63 6c 69 63 |+. ** Mo|use clic|
|00001880| 6b 20 6f 6e 20 6f 75 72 | 20 69 63 6f 6e 62 61 72 |k on our| iconbar|
|00001890| 20 69 63 6f 6e 20 2a 2a | 0d 08 48 1a dd 20 f2 69 | icon **|..H.. .i|
|000018a0| 63 6f 6e 62 61 72 5f 6d | 6f 75 73 65 5f 63 6c 69 |conbar_m|ouse_cli|
|000018b0| 63 6b 0d 08 52 36 20 e7 | 20 62 6c 6f 63 6b 25 21 |ck..R6 .| block%!|
|000018c0| 38 3d 31 20 84 20 62 6c | 6f 63 6b 25 21 38 3d 34 |8=1 . bl|ock%!8=4|
|000018d0| 20 8c 20 f2 6f 70 65 6e | 5f 77 69 6e 64 6f 77 28 | . .open|_window(|
|000018e0| 6d 61 63 72 6f 73 25 29 | 0d 08 5c 43 20 e7 20 62 |macros%)|..\C . b|
|000018f0| 6c 6f 63 6b 25 21 38 3d | 32 20 8c 20 f2 73 68 6f |lock%!8=|2 . .sho|
|00001900| 77 5f 6d 65 6e 75 28 21 | 62 6c 6f 63 6b 25 2c 39 |w_menu(!|block%,9|
|00001910| 36 2b 28 34 30 2a 34 29 | 2b 28 32 34 2a 32 29 2c |6+(40*4)|+(24*2),|
|00001920| 6d 61 69 6e 5f 6d 65 6e | 75 25 29 0d 08 66 05 e1 |main_men|u%)..f..|
|00001930| 0d 08 70 05 3a 0d 08 7a | 05 3a 0d 08 84 28 f4 20 |..p.:..z|.:...(. |
|00001940| 2a 2a 20 4d 6f 75 73 65 | 20 63 6c 69 63 6b 20 69 |** Mouse| click i|
|00001950| 6e 20 6d 61 63 72 6f 73 | 20 77 69 6e 64 6f 77 20 |n macros| window |
|00001960| 2a 2a 0d 08 8e 20 dd 20 | f2 6d 61 63 72 6f 73 5f |**... . |.macros_|
|00001970| 6d 6f 75 73 65 5f 63 6c | 69 63 6b 28 69 63 6f 6e |mouse_cl|ick(icon|
|00001980| 25 29 0d 08 98 17 20 ea | 20 73 74 72 69 6e 67 24 |%).... .| string$|
|00001990| 2c 70 6f 69 6e 74 65 72 | 25 0d 08 a2 06 20 3a 0d |,pointer|%.... :.|
|000019a0| 08 ac 1f 20 e7 20 28 69 | 63 6f 6e 25 20 83 20 32 |... . (i|con% . 2|
|000019b0| 29 20 80 20 69 63 6f 6e | 25 3c 34 30 20 8c 0d 08 |) . icon|%<40 ...|
|000019c0| b6 14 20 20 e7 20 62 6c | 6f 63 6b 25 21 38 3d 31 |.. . bl|ock%!8=1|
|000019d0| 20 8c 0d 08 c0 2a 20 20 | 20 73 74 72 69 6e 67 24 | ....* | string$|
|000019e0| 3d a4 72 65 61 64 5f 69 | 63 6f 6e 28 6d 61 63 72 |=.read_i|con(macr|
|000019f0| 6f 73 25 2c 69 63 6f 6e | 25 2d 31 29 0d 08 ca 20 |os%,icon|%-1)... |
|00001a00| 20 20 20 c8 95 20 a7 73 | 74 72 69 6e 67 24 2c 22 | .. .s|tring$,"|
|00001a10| a4 22 2c 70 6f 69 6e 74 | 65 72 25 29 0d 08 d4 2d |.",point|er%)...-|
|00001a20| 20 20 20 20 73 74 72 69 | 6e 67 24 3d c2 73 74 72 | stri|ng$=.str|
|00001a30| 69 6e 67 24 2c a9 28 73 | 74 72 69 6e 67 24 29 2d |ing$,.(s|tring$)-|
|00001a40| 70 6f 69 6e 74 65 72 25 | 29 0d 08 de 27 20 20 20 |pointer%|)...' |
|00001a50| 20 70 6f 69 6e 74 65 72 | 25 3d a7 73 74 72 69 6e | pointer|%=.strin|
|00001a60| 67 24 2c 22 a4 22 2c 70 | 6f 69 6e 74 65 72 25 29 |g$,".",p|ointer%)|
|00001a70| 0d 08 e8 34 20 20 20 20 | c8 99 20 22 57 69 6d 70 |...4 |.. "Wimp|
|00001a80| 5f 53 74 61 72 74 54 61 | 73 6b 22 2c c0 73 74 72 |_StartTa|sk",.str|
|00001a90| 69 6e 67 24 2c 70 6f 69 | 6e 74 65 72 25 2d 31 29 |ing$,poi|nter%-1)|
|00001aa0| 3a ef 20 37 0d 08 f2 08 | 20 20 20 ce 0d 08 fc 07 |:. 7....| .....|
|00001ab0| 20 20 cd 0d 09 06 14 20 | 20 e7 20 62 6c 6f 63 6b | ..... | . block|
|00001ac0| 25 21 38 3d 34 20 8c 0d | 09 10 29 20 20 20 c8 99 |%!8=4 ..|..) ..|
|00001ad0| 20 22 57 69 6d 70 5f 47 | 65 74 43 61 72 65 74 50 | "Wimp_G|etCaretP|
|00001ae0| 6f 73 69 74 69 6f 6e 22 | 2c 2c 62 6c 6f 63 6b 25 |osition"|,,block%|
|00001af0| 0d 09 1a 25 20 20 20 f2 | 65 6e 74 65 72 5f 6d 61 |...% .|enter_ma|
|00001b00| 63 72 6f 28 62 6c 6f 63 | 6b 25 21 30 2c 69 63 6f |cro(bloc|k%!0,ico|
|00001b10| 6e 25 2d 31 29 0d 09 24 | 07 20 20 cd 0d 09 2e 06 |n%-1)..$|. .....|
|00001b20| 20 cd 0d 09 38 40 20 e7 | 20 62 6c 6f 63 6b 25 21 | ...8@ .| block%!|
|00001b30| 38 3d 32 20 8c 20 f2 73 | 68 6f 77 5f 6d 65 6e 75 |8=2 . .s|how_menu|
|00001b40| 28 21 62 6c 6f 63 6b 25 | 2c 62 6c 6f 63 6b 25 21 |(!block%|,block%!|
|00001b50| 34 2b 32 30 2c 77 69 6e | 64 6f 77 5f 6d 65 6e 75 |4+20,win|dow_menu|
|00001b60| 25 29 0d 09 42 05 e1 0d | 09 4c 05 3a 0d 09 56 05 |%)..B...|.L.:..V.|
|00001b70| 3a 0d 09 60 26 f4 20 2a | 2a 20 4d 6f 75 73 65 20 |:..`&. *|* Mouse |
|00001b80| 63 6c 69 63 6b 20 69 6e | 20 73 61 76 65 20 77 69 |click in| save wi|
|00001b90| 6e 64 6f 77 20 2a 2a 0d | 09 6a 17 dd 20 f2 73 61 |ndow **.|.j.. .sa|
|00001ba0| 76 65 5f 6d 6f 75 73 65 | 5f 63 6c 69 63 6b 0d 09 |ve_mouse|_click..|
|00001bb0| 74 34 20 e7 20 28 62 6c | 6f 63 6b 25 21 38 3d 26 |t4 . (bl|ock%!8=&|
|00001bc0| 31 30 20 84 20 62 6c 6f | 63 6b 25 21 38 3d 26 34 |10 . blo|ck%!8=&4|
|00001bd0| 30 29 20 80 20 62 6c 6f | 63 6b 25 21 31 36 3d 32 |0) . blo|ck%!16=2|
|00001be0| 20 8c 0d 09 7e 3a 20 20 | c8 99 20 22 57 69 6d 70 | ...~: |.. "Wimp|
|00001bf0| 45 78 74 5f 44 72 61 67 | 49 63 6f 6e 22 2c 25 31 |Ext_Drag|Icon",%1|
|00001c00| 30 30 30 30 31 30 31 2c | 31 2c 73 61 76 65 25 2c |0000101,|1,save%,|
|00001c10| 32 2c 22 66 69 6c 65 5f | 66 66 64 22 0d 09 88 06 |2,"file_|ffd"....|
|00001c20| 20 cd 0d 09 92 30 20 e7 | 20 28 62 6c 6f 63 6b 25 | ....0 .| (block%|
|00001c30| 21 38 3d 31 20 84 20 62 | 6c 6f 63 6b 25 21 38 3d |!8=1 . b|lock%!8=|
|00001c40| 34 29 20 80 20 62 6c 6f | 63 6b 25 21 31 36 3d 33 |4) . blo|ck%!16=3|
|00001c50| 20 8c 0d 09 9c 21 20 20 | c8 99 20 22 57 69 6d 70 | ....! |.. "Wimp|
|00001c60| 45 78 74 5f 43 72 65 61 | 74 65 4d 65 6e 75 22 2c |Ext_Crea|teMenu",|
|00001c70| 2c 2d 31 0d 09 a6 0e 20 | 20 f2 73 61 76 65 5f 6f |,-1.... | .save_o|
|00001c80| 6b 0d 09 b0 06 20 cd 0d | 09 ba 05 e1 0d 09 c4 05 |k.... ..|........|
|00001c90| 3a 0d 09 ce 05 3a 0d 09 | d8 16 f4 20 2a 2a 20 44 |:....:..|... ** D|
|00001ca0| 72 61 67 20 65 6e 64 65 | 64 20 2a 2a 0d 09 e2 11 |rag ende|d **....|
|00001cb0| dd 20 f2 64 72 61 67 5f | 65 6e 64 65 64 0d 09 ec |. .drag_|ended...|
|00001cc0| 16 20 ea 20 73 69 7a 65 | 25 2c 66 69 6c 65 6e 61 |. . size|%,filena|
|00001cd0| 6d 65 24 0d 09 f6 06 20 | 3a 0d 0a 00 19 20 c8 99 |me$.... |:.... ..|
|00001ce0| 20 58 44 72 61 67 41 53 | 70 72 69 74 65 5f 53 74 | XDragAS|prite_St|
|00001cf0| 6f 70 0d 0a 0a 38 20 73 | 69 7a 65 25 3d a4 70 72 |op...8 s|ize%=.pr|
|00001d00| 65 70 61 72 65 5f 6d 61 | 63 72 6f 73 3a 66 69 6c |epare_ma|cros:fil|
|00001d10| 65 6e 61 6d 65 24 3d a4 | 72 65 61 64 5f 69 63 6f |ename$=.|read_ico|
|00001d20| 6e 28 73 61 76 65 25 2c | 30 29 0d 0a 14 3c 20 c8 |n(save%,|0)...< .|
|00001d30| 99 20 22 57 69 6d 70 45 | 78 74 5f 44 61 74 61 53 |. "WimpE|xt_DataS|
|00001d40| 61 76 65 22 2c 73 69 7a | 65 25 2c 66 69 6c 65 6e |ave",siz|e%,filen|
|00001d50| 61 6d 65 24 2c 26 66 66 | 64 2c 73 61 76 65 5f 61 |ame$,&ff|d,save_a|
|00001d60| 72 65 61 25 2c 31 0d 0a | 1e 05 e1 0d 0a 28 05 3a |rea%,1..|.....(.:|
|00001d70| 0d 0a 32 05 3a 0d 0a 3c | 3a f4 20 2a 2a 20 52 65 |..2.:..<|:. ** Re|
|00001d80| 74 75 72 6e 20 70 72 65 | 73 73 65 64 20 6f 72 20 |turn pre|ssed or |
|00001d90| 4f 4b 20 63 6c 69 63 6b | 65 64 20 6f 6e 20 69 6e |OK click|ed on in|
|00001da0| 20 73 61 76 65 20 77 69 | 6e 64 6f 77 20 2a 2a 0d | save wi|ndow **.|
|00001db0| 0a 46 0e dd 20 f2 73 61 | 76 65 5f 6f 6b 0d 0a 50 |.F.. .sa|ve_ok..P|
|00001dc0| 10 20 ea 20 66 69 6c 65 | 6e 61 6d 65 24 0d 0a 5a |. . file|name$..Z|
|00001dd0| 06 20 3a 0d 0a 64 22 20 | 66 69 6c 65 6e 61 6d 65 |. :..d" |filename|
|00001de0| 24 3d a4 72 65 61 64 5f | 69 63 6f 6e 28 73 61 76 |$=.read_|icon(sav|
|00001df0| 65 25 2c 30 29 0d 0a 6e | 22 20 e7 20 a7 a4 72 65 |e%,0)..n|" . ..re|
|00001e00| 61 64 5f 69 63 6f 6e 28 | 73 61 76 65 25 2c 30 29 |ad_icon(|save%,0)|
|00001e10| 2c 22 2e 22 29 20 8c 0d | 0a 78 1d 20 20 f2 73 61 |,".") ..|.x. .sa|
|00001e20| 76 65 5f 6d 61 63 72 6f | 73 28 66 69 6c 65 6e 61 |ve_macro|s(filena|
|00001e30| 6d 65 24 29 0d 0a 82 06 | 20 cc 0d 0a 8c 29 20 20 |me$)....| ....) |
|00001e40| f2 73 61 76 65 5f 6d 61 | 63 72 6f 73 28 6d 61 63 |.save_ma|cros(mac|
|00001e50| 72 6f 73 24 2b 22 2e 22 | 2b 66 69 6c 65 6e 61 6d |ros$+"."|+filenam|
|00001e60| 65 24 29 0d 0a 96 06 20 | cd 0d 0a a0 05 e1 0d 0a |e$).... |........|
|00001e70| aa 05 3a 0d 0a b4 05 3a | 0d 0a be 37 f4 20 2a 2a |..:....:|...7. **|
|00001e80| 20 43 68 65 63 6b 20 77 | 68 61 74 20 6d 61 63 72 | Check w|hat macr|
|00001e90| 6f 20 28 69 66 20 61 6e | 79 29 20 73 68 6f 75 6c |o (if an|y) shoul|
|00001ea0| 64 20 62 65 20 65 6e 74 | 65 72 65 64 20 2a 2a 0d |d be ent|ered **.|
|00001eb0| 0a c8 20 dd 20 f2 65 6e | 74 65 72 5f 6d 61 63 72 |.. . .en|ter_macr|
|00001ec0| 6f 28 63 61 72 65 74 25 | 2c 69 63 6f 6e 25 29 0d |o(caret%|,icon%).|
|00001ed0| 0a d2 35 20 e7 20 63 61 | 72 65 74 25 3c 3e 6d 61 |..5 . ca|ret%<>ma|
|00001ee0| 63 72 6f 73 25 20 84 20 | 69 6e 73 65 72 74 5f 73 |cros% . |insert_s|
|00001ef0| 65 6c 66 25 3d 31 20 84 | 20 6f 75 74 70 75 74 25 |elf%=1 .| output%|
|00001f00| 3e 30 20 8c 0d 0a dc 19 | 20 20 e7 20 6f 75 74 70 |>0 .....| . outp|
|00001f10| 75 74 5f 73 70 65 65 64 | 25 3c 34 20 8c 0d 0a e6 |ut_speed|%<4 ....|
|00001f20| 32 20 20 20 24 74 65 78 | 74 25 3d 22 42 75 73 79 |2 $tex|t%="Busy|
|00001f30| 22 3a f2 72 65 64 72 61 | 77 5f 69 63 6f 6e 28 2d |":.redra|w_icon(-|
|00001f40| 32 2c 69 63 6f 6e 5f 68 | 61 6e 64 6c 65 25 29 0d |2,icon_h|andle%).|
|00001f50| 0a f0 29 20 20 20 c8 99 | 20 22 57 69 6d 70 5f 47 |..) ..| "Wimp_G|
|00001f60| 65 74 43 61 72 65 74 50 | 6f 73 69 74 69 6f 6e 22 |etCaretP|osition"|
|00001f70| 2c 2c 62 6c 6f 63 6b 25 | 0d 0a fa 3a 20 20 20 72 |,,block%|...: r|
|00001f80| 65 61 64 5f 69 63 6f 6e | 25 3d 69 63 6f 6e 25 3a |ead_icon|%=icon%:|
|00001f90| 72 65 61 64 5f 70 6f 69 | 6e 74 65 72 25 3d 30 3a |read_poi|nter%=0:|
|00001fa0| 74 6f 5f 77 69 6e 64 6f | 77 25 3d 21 62 6c 6f 63 |to_windo|w%=!bloc|
|00001fb0| 6b 25 0d 0b 04 23 20 20 | 20 70 6f 6c 6c 5f 6d 61 |k%...# | poll_ma|
|00001fc0| 73 6b 25 3d 70 6f 6c 6c | 5f 6d 61 73 6b 25 20 80 |sk%=poll|_mask% .|
|00001fd0| 20 ac 28 31 29 0d 0b 0e | 18 20 20 20 74 61 73 6b | .(1)...|. task|
|00001fe0| 73 25 3d 74 61 73 6b 73 | 25 20 84 20 31 0d 0b 18 |s%=tasks|% . 1...|
|00001ff0| 07 20 20 cc 0d 0b 22 36 | 20 20 20 e7 20 63 61 72 |. ..."6| . car|
|00002000| 65 74 25 3d 6d 61 63 72 | 6f 73 25 20 80 20 69 6e |et%=macr|os% . in|
|00002010| 73 65 72 74 5f 73 65 6c | 66 25 3d 31 20 80 20 6f |sert_sel|f%=1 . o|
|00002020| 75 74 70 75 74 25 3d 30 | 20 8c 0d 0b 2c 2c 20 20 |utput%=0| ...,, |
|00002030| 20 20 24 6d 61 63 72 6f | 25 3d a4 72 65 61 64 5f | $macro|%=.read_|
|00002040| 69 63 6f 6e 28 6d 61 63 | 72 6f 73 25 2c 69 63 6f |icon(mac|ros%,ico|
|00002050| 6e 25 29 2b bd 30 0d 0b | 36 08 20 20 20 cc 0d 0b |n%)+.0..|6. ...|
|00002060| 40 41 20 20 20 20 c8 99 | 20 22 4f 53 5f 47 53 54 |@A ..| "OS_GST|
|00002070| 72 61 6e 73 22 2c a4 72 | 65 61 64 5f 69 63 6f 6e |rans",.r|ead_icon|
|00002080| 28 6d 61 63 72 6f 73 25 | 2c 69 63 6f 6e 25 29 2b |(macros%|,icon%)+|
|00002090| 22 7c 40 22 2c 6d 61 63 | 72 6f 25 2c 32 35 36 0d |"|@",mac|ro%,256.|
|000020a0| 0b 4a 08 20 20 20 cd 0d | 0b 54 37 20 20 20 de 20 |.J. ..|.T7 . |
|000020b0| 41 25 20 a9 28 73 74 72 | 69 6e 67 24 29 3a 41 25 |A% .(str|ing$):A%|
|000020c0| 3d 6d 61 63 72 6f 25 3a | 42 25 3d 6f 75 74 70 75 |=macro%:|B%=outpu|
|000020d0| 74 25 3a 43 25 3d 6e 65 | 77 6c 69 6e 65 25 0d 0b |t%:C%=ne|wline%..|
|000020e0| 5e 14 20 20 20 d6 20 73 | 65 6e 64 5f 73 74 72 69 |^. . s|end_stri|
|000020f0| 6e 67 0d 0b 68 07 20 20 | cd 0d 0b 72 06 20 cc 0d |ng..h. |...r. ..|
|00002100| 0b 7c 09 20 20 ef 20 37 | 0d 0b 86 06 20 cd 0d 0b |.|. . 7|.... ...|
|00002110| 90 05 e1 0d 0b 9a 05 3a | 0d 0b a4 05 3a 0d 0b ae |.......:|....:...|
|00002120| 17 f4 20 2a 2a 20 4b 65 | 79 20 70 72 65 73 73 65 |.. ** Ke|y presse|
|00002130| 64 20 2a 2a 0d 0b b8 18 | dd 20 f2 6b 65 79 5f 70 |d **....|. .key_p|
|00002140| 72 65 73 73 65 64 28 6b | 65 79 25 29 0d 0b c2 14 |ressed(k|ey%)....|
|00002150| 20 ea 20 69 67 6e 6f 72 | 65 25 2c 69 63 6f 6e 25 | . ignor|e%,icon%|
|00002160| 0d 0b cc 06 20 3a 0d 0b | d6 0e 20 69 67 6e 6f 72 |.... :..|.. ignor|
|00002170| 65 25 3d b9 0d 0b e0 18 | 20 e7 20 21 62 6c 6f 63 |e%=.....| . !bloc|
|00002180| 6b 25 3d 6d 61 63 72 6f | 73 25 20 8c 0d 0b ea 0f |k%=macro|s% .....|
|00002190| 20 20 c8 8e 20 6b 65 79 | 25 20 ca 0d 0b f4 35 20 | .. key|% ....5 |
|000021a0| 20 20 c9 20 34 36 31 3a | 69 67 6e 6f 72 65 25 3d | . 461:|ignore%=|
|000021b0| a3 3a f2 65 6e 74 65 72 | 5f 6d 61 63 72 6f 28 6d |.:.enter|_macro(m|
|000021c0| 61 63 72 6f 73 25 2c 62 | 6c 6f 63 6b 25 21 34 29 |acros%,b|lock%!4)|
|000021d0| 0d 0b fe 31 20 20 20 c9 | 20 31 30 2c 31 33 3a 69 |...1 .| 10,13:i|
|000021e0| 67 6e 6f 72 65 25 3d a3 | 3a f2 69 6e 73 65 72 74 |gnore%=.|:.insert|
|000021f0| 5f 72 65 74 75 72 6e 28 | 62 6c 6f 63 6b 25 21 34 |_return(|block%!4|
|00002200| 29 0d 0c 08 07 20 20 cb | 0d 0c 12 06 20 cd 0d 0c |).... .|.... ...|
|00002210| 1c 06 20 3a 0d 0c 26 2a | 20 e7 20 69 67 6e 6f 72 |.. :..&*| . ignor|
|00002220| 65 25 20 8c 20 c8 99 20 | 22 57 69 6d 70 5f 50 72 |e% . .. |"Wimp_Pr|
|00002230| 6f 63 65 73 73 4b 65 79 | 22 2c 6b 65 79 25 0d 0c |ocessKey|",key%..|
|00002240| 30 05 e1 0d 0c 3a 05 3a | 0d 0c 44 05 3a 0d 0c 4e |0....:.:|..D.:..N|
|00002250| 25 f4 20 2a 2a 20 49 6e | 73 65 72 74 20 72 65 70 |%. ** In|sert rep|
|00002260| 6c 61 63 65 6d 65 6e 74 | 20 72 65 74 75 72 6e 20 |lacement| return |
|00002270| 2a 2a 0d 0c 58 1c dd 20 | f2 69 6e 73 65 72 74 5f |**..X.. |.insert_|
|00002280| 72 65 74 75 72 6e 28 63 | 61 72 65 74 25 29 0d 0c |return(c|aret%)..|
|00002290| 62 1b 20 ea 20 69 63 6f | 6e 25 2c 73 74 72 69 6e |b. . ico|n%,strin|
|000022a0| 67 24 2c 69 6e 64 65 78 | 25 0d 0c 6c 06 20 3a 0d |g$,index|%..l. :.|
|000022b0| 0c 76 11 20 69 63 6f 6e | 25 3d 63 61 72 65 74 25 |.v. icon|%=caret%|
|000022c0| 0d 0c 80 26 20 73 74 72 | 69 6e 67 24 3d a4 72 65 |...& str|ing$=.re|
|000022d0| 61 64 5f 69 63 6f 6e 28 | 6d 61 63 72 6f 73 25 2c |ad_icon(|macros%,|
|000022e0| 69 63 6f 6e 25 29 0d 0c | 8a 38 20 c8 99 20 22 57 |icon%)..|.8 .. "W|
|000022f0| 69 6d 70 5f 47 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_GetC|aretPosi|
|00002300| 74 69 6f 6e 22 2c 2c 62 | 6c 6f 63 6b 25 3a 69 6e |tion",,b|lock%:in|
|00002310| 64 65 78 25 3d 62 6c 6f | 63 6b 25 21 32 30 0d 0c |dex%=blo|ck%!20..|
|00002320| 94 3d 20 73 74 72 69 6e | 67 24 3d c0 73 74 72 69 |.= strin|g$=.stri|
|00002330| 6e 67 24 2c 69 6e 64 65 | 78 25 29 2b 22 a4 22 2b |ng$,inde|x%)+"."+|
|00002340| c2 73 74 72 69 6e 67 24 | 2c a9 28 73 74 72 69 6e |.string$|,.(strin|
|00002350| 67 24 29 2d 69 6e 64 65 | 78 25 29 0d 0c 9e 06 20 |g$)-inde|x%).... |
|00002360| 3a 0d 0c a8 2a 20 f2 75 | 70 64 61 74 65 5f 69 63 |:...* .u|pdate_ic|
|00002370| 6f 6e 28 6d 61 63 72 6f | 73 25 2c 69 63 6f 6e 25 |on(macro|s%,icon%|
|00002380| 2c 73 74 72 69 6e 67 24 | 2c a3 29 0d 0c b2 3f 20 |,string$|,.)...? |
|00002390| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 43 61 72 65 |.. "Wimp|_SetCare|
|000023a0| 74 50 6f 73 69 74 69 6f | 6e 22 2c 6d 61 63 72 6f |tPositio|n",macro|
|000023b0| 73 25 2c 69 63 6f 6e 25 | 2c 2d 31 2c 2d 31 2c 2d |s%,icon%|,-1,-1,-|
|000023c0| 31 2c 69 6e 64 65 78 25 | 2b 31 0d 0c bc 05 e1 0d |1,index%|+1......|
|000023d0| 0c c6 05 3a 0d 0c d0 05 | 3a 0d 0c da 1e f4 20 2a |...:....|:..... *|
|000023e0| 2a 20 4d 65 6e 75 20 69 | 74 65 6d 20 73 65 6c 65 |* Menu i|tem sele|
|000023f0| 63 74 65 64 20 2a 2a 0d | 0c e4 19 dd 20 f2 6d 65 |cted **.|.... .me|
|00002400| 6e 75 5f 69 74 65 6d 5f | 73 65 6c 65 63 74 65 64 |nu_item_|selected|
|00002410| 0d 0c ee 06 20 3a 0d 0c | f8 2f 20 e7 20 73 68 6f |.... :..|./ . sho|
|00002420| 77 6e 5f 6d 65 6e 75 25 | 3d 6d 61 69 6e 5f 6d 65 |wn_menu%|=main_me|
|00002430| 6e 75 25 20 8c 20 f2 6d | 61 69 6e 5f 6d 65 6e 75 |nu% . .m|ain_menu|
|00002440| 5f 69 74 65 6d 0d 0d 02 | 33 20 e7 20 73 68 6f 77 |_item...|3 . show|
|00002450| 6e 5f 6d 65 6e 75 25 3d | 77 69 6e 64 6f 77 5f 6d |n_menu%=|window_m|
|00002460| 65 6e 75 25 20 8c 20 f2 | 77 69 6e 64 6f 77 5f 6d |enu% . .|window_m|
|00002470| 65 6e 75 5f 69 74 65 6d | 0d 0d 0c 05 e1 0d 0d 16 |enu_item|........|
|00002480| 05 3a 0d 0d 20 05 3a 0d | 0d 2a 23 f4 20 2a 2a 20 |.:.. .:.|.*#. ** |
|00002490| 4d 61 69 6e 20 6d 65 6e | 75 20 69 74 65 6d 20 73 |Main men|u item s|
|000024a0| 65 6c 65 63 74 65 64 20 | 2a 2a 0d 0d 34 15 dd 20 |elected |**..4.. |
|000024b0| f2 6d 61 69 6e 5f 6d 65 | 6e 75 5f 69 74 65 6d 0d |.main_me|nu_item.|
|000024c0| 0d 3e 0d 20 ea 20 69 6e | 64 65 78 25 0d 0d 48 06 |.>. . in|dex%..H.|
|000024d0| 20 3a 0d 0d 52 3b 20 e7 | 20 62 6c 6f 63 6b 25 21 | :..R; .| block%!|
|000024e0| 30 3d 30 20 8c 20 c8 99 | 20 22 57 69 6d 70 45 78 |0=0 . ..| "WimpEx|
|000024f0| 74 5f 4f 70 65 6e 44 69 | 61 6c 6f 67 75 65 22 2c |t_OpenDi|alogue",|
|00002500| 2c 2c 69 6e 66 6f 25 2c | 2d 36 34 2c 30 0d 0d 5c |,,info%,|-64,0..\|
|00002510| 13 20 e7 20 62 6c 6f 63 | 6b 25 21 30 3d 31 20 8c |. . bloc|k%!0=1 .|
|00002520| 0d 0d 66 19 20 20 f2 6f | 70 65 6e 5f 77 69 6e 64 |..f. .o|pen_wind|
|00002530| 6f 77 28 6c 6f 61 64 25 | 29 0d 0d 70 23 20 20 69 |ow(load%|)..p# i|
|00002540| 6e 64 65 78 25 3d a9 28 | a4 72 65 61 64 5f 69 63 |ndex%=.(|.read_ic|
|00002550| 6f 6e 28 6c 6f 61 64 25 | 2c 30 29 29 0d 0d 7a 38 |on(load%|,0))..z8|
|00002560| 20 20 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 43 61 | .. "Wi|mp_SetCa|
|00002570| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 6c 6f 61 |retPosit|ion",loa|
|00002580| 64 25 2c 30 2c 2d 31 2c | 2d 31 2c 2d 31 2c 69 6e |d%,0,-1,|-1,-1,in|
|00002590| 64 65 78 25 0d 0d 84 06 | 20 cd 0d 0d 8e 20 20 e7 |dex%....| .... .|
|000025a0| 20 62 6c 6f 63 6b 25 21 | 30 3d 33 20 8c 20 6b 69 | block%!|0=3 . ki|
|000025b0| 6c 6c 5f 74 61 73 6b 25 | 3d b9 0d 0d 98 05 e1 0d |ll_task%|=.......|
|000025c0| 0d a2 05 3a 0d 0d ac 05 | 3a 0d 0d b6 25 f4 20 2a |...:....|:...%. *|
|000025d0| 2a 20 57 69 6e 64 6f 77 | 20 6d 65 6e 75 20 69 74 |* Window| menu it|
|000025e0| 65 6d 20 73 65 6c 65 63 | 74 65 64 20 2a 2a 0d 0d |em selec|ted **..|
|000025f0| c0 17 dd 20 f2 77 69 6e | 64 6f 77 5f 6d 65 6e 75 |... .win|dow_menu|
|00002600| 5f 69 74 65 6d 0d 0d ca | 30 20 ea 20 6f 6c 64 5f |_item...|0 . old_|
|00002610| 73 70 65 65 64 25 2c 6f | 6c 64 5f 6f 75 74 70 75 |speed%,o|ld_outpu|
|00002620| 74 25 2c 6f 6c 64 5f 6e | 65 77 6c 69 6e 65 25 2c |t%,old_n|ewline%,|
|00002630| 69 63 6f 6e 25 0d 0d d4 | 06 20 3a 0d 0d de 47 20 |icon%...|. :...G |
|00002640| 6f 6c 64 5f 73 70 65 65 | 64 25 3d 6f 75 74 70 75 |old_spee|d%=outpu|
|00002650| 74 5f 73 70 65 65 64 25 | 3a 6f 6c 64 5f 6f 75 74 |t_speed%|:old_out|
|00002660| 70 75 74 25 3d 6f 75 74 | 70 75 74 25 3a 6f 6c 64 |put%=out|put%:old|
|00002670| 5f 6e 65 77 6c 69 6e 65 | 25 3d 6e 65 77 6c 69 6e |_newline|%=newlin|
|00002680| 65 25 0d 0d e8 13 20 e7 | 20 62 6c 6f 63 6b 25 21 |e%.... .| block%!|
|00002690| 30 3d 30 20 8c 0d 0d f2 | 2e 20 20 e7 20 62 6c 6f |0=0 ....|. . blo|
|000026a0| 63 6b 25 21 34 3e 2d 31 | 20 8c 20 6f 75 74 70 75 |ck%!4>-1| . outpu|
|000026b0| 74 5f 73 70 65 65 64 25 | 3d 62 6c 6f 63 6b 25 21 |t_speed%|=block%!|
|000026c0| 34 2b 31 0d 0d fc 06 20 | cd 0d 0e 06 13 20 e7 20 |4+1.... |..... . |
|000026d0| 62 6c 6f 63 6b 25 21 30 | 3d 31 20 8c 0d 0e 10 26 |block%!0|=1 ....&|
|000026e0| 20 20 e7 20 62 6c 6f 63 | 6b 25 21 34 3e 2d 31 20 | . bloc|k%!4>-1 |
|000026f0| 8c 20 6f 75 74 70 75 74 | 25 3d 62 6c 6f 63 6b 25 |. output|%=block%|
|00002700| 21 34 0d 0e 1a 37 20 20 | e7 20 62 6c 6f 63 6b 25 |!4...7 |. block%|
|00002710| 21 34 3d 30 20 8c 20 f2 | 73 68 61 64 65 5f 6d 65 |!4=0 . .|shade_me|
|00002720| 6e 75 5f 69 74 65 6d 28 | 77 69 6e 64 6f 77 5f 6d |nu_item(|window_m|
|00002730| 65 6e 75 25 2c 33 2c 30 | 29 0d 0e 24 38 20 20 e7 |enu%,3,0|)..$8 .|
|00002740| 20 62 6c 6f 63 6b 25 21 | 34 3e 3d 31 20 8c 20 f2 | block%!|4>=1 . .|
|00002750| 73 68 61 64 65 5f 6d 65 | 6e 75 5f 69 74 65 6d 28 |shade_me|nu_item(|
|00002760| 77 69 6e 64 6f 77 5f 6d | 65 6e 75 25 2c 33 2c 31 |window_m|enu%,3,1|
|00002770| 29 0d 0e 2e 06 20 cd 0d | 0e 38 13 20 e7 20 62 6c |).... ..|.8. . bl|
|00002780| 6f 63 6b 25 21 30 3d 32 | 20 8c 0d 0e 42 13 20 20 |ock%!0=2| ...B. |
|00002790| c8 8e 20 62 6c 6f 63 6b | 25 21 34 20 ca 0d 0e 4c |.. block|%!4 ...L|
|000027a0| 16 20 20 20 c9 20 30 3a | 6e 65 77 6c 69 6e 65 25 |. . 0:|newline%|
|000027b0| 3d 31 33 0d 0e 56 16 20 | 20 20 c9 20 31 3a 6e 65 |=13..V. | . 1:ne|
|000027c0| 77 6c 69 6e 65 25 3d 31 | 30 0d 0e 60 07 20 20 cb |wline%=1|0..`. .|
|000027d0| 0d 0e 6a 06 20 cd 0d 0e | 74 13 20 e7 20 62 6c 6f |..j. ...|t. . blo|
|000027e0| 63 6b 25 21 30 3d 33 20 | 8c 0d 0e 7e 23 20 20 69 |ck%!0=3 |...~# i|
|000027f0| 6e 73 65 72 74 5f 73 65 | 6c 66 25 3d 69 6e 73 65 |nsert_se|lf%=inse|
|00002800| 72 74 5f 73 65 6c 66 25 | 20 82 20 31 0d 0e 88 27 |rt_self%| . 1...'|
|00002810| 20 20 f2 74 69 63 6b 5f | 6d 65 6e 75 5f 69 74 65 | .tick_|menu_ite|
|00002820| 6d 28 77 69 6e 64 6f 77 | 5f 6d 65 6e 75 25 2c 33 |m(window|_menu%,3|
|00002830| 2c 32 29 0d 0e 92 06 20 | cd 0d 0e 9c 13 20 e7 20 |,2).... |..... . |
|00002840| 62 6c 6f 63 6b 25 21 30 | 3d 34 20 8c 0d 0e a6 17 |block%!0|=4 .....|
|00002850| 20 20 74 61 73 6b 73 25 | 3d 74 61 73 6b 73 25 20 | tasks%|=tasks% |
|00002860| 82 20 34 0d 0e b0 27 20 | 20 f2 74 69 63 6b 5f 6d |. 4...' | .tick_m|
|00002870| 65 6e 75 5f 69 74 65 6d | 28 77 69 6e 64 6f 77 5f |enu_item|(window_|
|00002880| 6d 65 6e 75 25 2c 34 2c | 32 29 0d 0e ba 43 20 20 |menu%,4,|2)...C |
|00002890| e7 20 28 70 6f 6c 6c 5f | 6d 61 73 6b 25 20 80 20 |. (poll_|mask% . |
|000028a0| 31 29 20 80 20 74 61 73 | 6b 73 25 3c 3e a3 20 8c |1) . tas|ks%<>. .|
|000028b0| 20 70 6f 6c 6c 5f 6d 61 | 73 6b 25 3d 70 6f 6c 6c | poll_ma|sk%=poll|
|000028c0| 5f 6d 61 73 6b 25 20 80 | 20 ac 28 31 29 0d 0e c4 |_mask% .| .(1)...|
|000028d0| 41 20 20 e7 20 28 70 6f | 6c 6c 5f 6d 61 73 6b 25 |A . (po|ll_mask%|
|000028e0| 20 80 20 31 29 3d a3 20 | 80 20 74 61 73 6b 73 25 | . 1)=. |. tasks%|
|000028f0| 3d a3 20 8c 20 70 6f 6c | 6c 5f 6d 61 73 6b 25 3d |=. . pol|l_mask%=|
|00002900| 70 6f 6c 6c 5f 6d 61 73 | 6b 25 20 84 20 31 0d 0e |poll_mas|k% . 1..|
|00002910| ce 06 20 cd 0d 0e d8 13 | 20 e7 20 62 6c 6f 63 6b |.. .....| . block|
|00002920| 25 21 30 3d 35 20 8c 0d | 0e e2 15 20 20 6c 6f 63 |%!0=5 ..|... loc|
|00002930| 6b 25 3d 6c 6f 63 6b 25 | 20 82 20 31 0d 0e ec 27 |k%=lock%| . 1...'|
|00002940| 20 20 f2 74 69 63 6b 5f | 6d 65 6e 75 5f 69 74 65 | .tick_|menu_ite|
|00002950| 6d 28 77 69 6e 64 6f 77 | 5f 6d 65 6e 75 25 2c 35 |m(window|_menu%,5|
|00002960| 2c 32 29 0d 0e f6 06 20 | cd 0d 0f 00 13 20 e7 20 |,2).... |..... . |
|00002970| 62 6c 6f 63 6b 25 21 30 | 3d 36 20 8c 0d 0f 0a 18 |block%!0|=6 .....|
|00002980| 20 20 e3 20 69 63 6f 6e | 25 3d 30 20 b8 20 33 38 | . icon|%=0 . 38|
|00002990| 20 88 20 32 0d 0f 14 27 | 20 20 20 f2 75 70 64 61 | . 2...'| .upda|
|000029a0| 74 65 5f 69 63 6f 6e 28 | 6d 61 63 72 6f 73 25 2c |te_icon(|macros%,|
|000029b0| 69 63 6f 6e 25 2c 22 22 | 2c a3 29 0d 0f 1e 07 20 |icon%,""|,.).... |
|000029c0| 20 ed 0d 0f 28 06 20 cd | 0d 0f 32 06 20 3a 0d 0f | ...(. .|..2. :..|
|000029d0| 3c 22 20 e7 20 6f 6c 64 | 5f 73 70 65 65 64 25 3c |<" . old|_speed%<|
|000029e0| 3e 6f 75 74 70 75 74 5f | 73 70 65 65 64 25 20 8c |>output_|speed% .|
|000029f0| 0d 0f 46 31 20 20 f2 74 | 69 63 6b 5f 6d 65 6e 75 |..F1 .t|ick_menu|
|00002a00| 5f 69 74 65 6d 28 73 70 | 65 65 64 5f 6d 65 6e 75 |_item(sp|eed_menu|
|00002a10| 25 2c 6f 6c 64 5f 73 70 | 65 65 64 25 2d 31 2c 30 |%,old_sp|eed%-1,0|
|00002a20| 29 0d 0f 50 34 20 20 f2 | 74 69 63 6b 5f 6d 65 6e |)..P4 .|tick_men|
|00002a30| 75 5f 69 74 65 6d 28 73 | 70 65 65 64 5f 6d 65 6e |u_item(s|peed_men|
|00002a40| 75 25 2c 6f 75 74 70 75 | 74 5f 73 70 65 65 64 25 |u%,outpu|t_speed%|
|00002a50| 2d 31 2c 31 29 0d 0f 5a | 06 20 cd 0d 0f 64 1d 20 |-1,1)..Z|. ...d. |
|00002a60| e7 20 6f 6c 64 5f 6f 75 | 74 70 75 74 25 3c 3e 6f |. old_ou|tput%<>o|
|00002a70| 75 74 70 75 74 25 20 8c | 0d 0f 6e 31 20 20 f2 74 |utput% .|..n1 .t|
|00002a80| 69 63 6b 5f 6d 65 6e 75 | 5f 69 74 65 6d 28 6f 75 |ick_menu|_item(ou|
|00002a90| 74 70 75 74 5f 6d 65 6e | 75 25 2c 6f 6c 64 5f 6f |tput_men|u%,old_o|
|00002aa0| 75 74 70 75 74 25 2c 30 | 29 0d 0f 78 2d 20 20 f2 |utput%,0|)..x- .|
|00002ab0| 74 69 63 6b 5f 6d 65 6e | 75 5f 69 74 65 6d 28 6f |tick_men|u_item(o|
|00002ac0| 75 74 70 75 74 5f 6d 65 | 6e 75 25 2c 6f 75 74 70 |utput_me|nu%,outp|
|00002ad0| 75 74 25 2c 31 29 0d 0f | 82 06 20 cd 0d 0f 8c 1f |ut%,1)..|.. .....|
|00002ae0| 20 e7 20 6f 6c 64 5f 6e | 65 77 6c 69 6e 65 25 3c | . old_n|ewline%<|
|00002af0| 3e 6e 65 77 6c 69 6e 65 | 25 20 8c 0d 0f 96 19 20 |>newline|% ..... |
|00002b00| 20 e7 20 6f 6c 64 5f 6e | 65 77 6c 69 6e 65 25 3d | . old_n|ewline%=|
|00002b10| 31 33 20 8c 0d 0f a0 29 | 20 20 20 f2 74 69 63 6b |13 ....)| .tick|
|00002b20| 5f 6d 65 6e 75 5f 69 74 | 65 6d 28 6e 65 77 6c 69 |_menu_it|em(newli|
|00002b30| 6e 65 5f 6d 65 6e 75 25 | 2c 30 2c 30 29 0d 0f aa |ne_menu%|,0,0)...|
|00002b40| 29 20 20 20 f2 74 69 63 | 6b 5f 6d 65 6e 75 5f 69 |) .tic|k_menu_i|
|00002b50| 74 65 6d 28 6e 65 77 6c | 69 6e 65 5f 6d 65 6e 75 |tem(newl|ine_menu|
|00002b60| 25 2c 31 2c 31 29 0d 0f | b4 07 20 20 cc 0d 0f be |%,1,1)..|.. ....|
|00002b70| 29 20 20 20 f2 74 69 63 | 6b 5f 6d 65 6e 75 5f 69 |) .tic|k_menu_i|
|00002b80| 74 65 6d 28 6e 65 77 6c | 69 6e 65 5f 6d 65 6e 75 |tem(newl|ine_menu|
|00002b90| 25 2c 31 2c 30 29 0d 0f | c8 29 20 20 20 f2 74 69 |%,1,0)..|.) .ti|
|00002ba0| 63 6b 5f 6d 65 6e 75 5f | 69 74 65 6d 28 6e 65 77 |ck_menu_|item(new|
|00002bb0| 6c 69 6e 65 5f 6d 65 6e | 75 25 2c 30 2c 31 29 0d |line_men|u%,0,1).|
|00002bc0| 0f d2 07 20 20 cd 0d 0f | dc 06 20 cd 0d 0f e6 05 |... ...|.. .....|
|00002bd0| e1 0d 0f f0 05 3a 0d 0f | fa 05 3a 0d 10 04 2b f4 |.....:..|..:...+.|
|00002be0| 20 2a 2a 20 53 68 6f 77 | 20 6d 65 6e 75 20 61 74 | ** Show| menu at|
|00002bf0| 20 73 70 65 63 69 66 69 | 65 64 20 70 6f 73 69 74 | specifi|ed posit|
|00002c00| 69 6f 6e 20 2a 2a 0d 10 | 0e 1d dd 20 f2 73 68 6f |ion **..|... .sho|
|00002c10| 77 5f 6d 65 6e 75 28 78 | 25 2c 79 25 2c 6d 65 6e |w_menu(x|%,y%,men|
|00002c20| 75 25 29 0d 10 18 2c 20 | c8 99 20 22 57 69 6d 70 |u%)..., |.. "Wimp|
|00002c30| 45 78 74 5f 43 72 65 61 | 74 65 4d 65 6e 75 22 2c |Ext_Crea|teMenu",|
|00002c40| 2c 6d 65 6e 75 25 2c 78 | 25 2d 36 34 2c 79 25 0d |,menu%,x|%-64,y%.|
|00002c50| 10 22 16 20 73 68 6f 77 | 6e 5f 6d 65 6e 75 25 3d |.". show|n_menu%=|
|00002c60| 6d 65 6e 75 25 0d 10 2c | 05 e1 0d 10 36 05 3a 0d |menu%..,|....6.:.|
|00002c70| 10 40 05 3a 0d 10 4a 28 | f4 20 2a 2a 20 48 61 6e |.@.:..J(|. ** Han|
|00002c80| 64 6c 65 20 74 69 63 6b | 69 6e 67 20 6f 66 20 6d |dle tick|ing of m|
|00002c90| 65 6e 75 20 69 74 65 6d | 73 20 2a 2a 0d 10 54 2d |enu item|s **..T-|
|00002ca0| dd 20 f2 74 69 63 6b 5f | 6d 65 6e 75 5f 69 74 65 |. .tick_|menu_ite|
|00002cb0| 6d 28 6d 65 6e 75 25 2c | 69 74 65 6d 25 2c 74 69 |m(menu%,|item%,ti|
|00002cc0| 63 6b 5f 74 79 70 65 25 | 29 0d 10 5e 33 20 c8 99 |ck_type%|)..^3 ..|
|00002cd0| 20 22 57 69 6d 70 45 78 | 74 5f 54 69 63 6b 45 6e | "WimpEx|t_TickEn|
|00002ce0| 74 72 79 22 2c 2c 6d 65 | 6e 75 25 2c 69 74 65 6d |try",,me|nu%,item|
|00002cf0| 25 2c 74 69 63 6b 5f 74 | 79 70 65 25 0d 10 68 05 |%,tick_t|ype%..h.|
|00002d00| e1 0d 10 72 05 3a 0d 10 | 7c 05 3a 0d 10 86 3d f4 |...r.:..||.:...=.|
|00002d10| 20 2a 2a 20 48 61 6e 64 | 6c 65 20 74 69 63 6b 69 | ** Hand|le ticki|
|00002d20| 6e 67 20 6f 66 20 6d 65 | 6e 75 20 69 74 65 6d 73 |ng of me|nu items|
|00002d30| 20 61 6e 64 20 72 65 74 | 75 72 6e 20 6e 65 77 20 | and ret|urn new |
|00002d40| 73 74 61 74 65 20 2a 2a | 0d 10 90 2d dd 20 a4 74 |state **|...-. .t|
|00002d50| 69 63 6b 5f 6d 65 6e 75 | 5f 69 74 65 6d 28 6d 65 |ick_menu|_item(me|
|00002d60| 6e 75 25 2c 69 74 65 6d | 25 2c 74 69 63 6b 5f 74 |nu%,item|%,tick_t|
|00002d70| 79 70 65 25 29 0d 10 9a | 0e 20 ea 20 74 69 63 6b |ype%)...|. . tick|
|00002d80| 65 64 25 0d 10 a4 06 20 | 3a 0d 10 ae 3d 20 c8 99 |ed%.... |:...= ..|
|00002d90| 20 22 57 69 6d 70 45 78 | 74 5f 54 69 63 6b 45 6e | "WimpEx|t_TickEn|
|00002da0| 74 72 79 22 2c 2c 6d 65 | 6e 75 25 2c 69 74 65 6d |try",,me|nu%,item|
|00002db0| 25 2c 74 69 63 6b 5f 74 | 79 70 65 25 20 b8 20 74 |%,tick_t|ype% . t|
|00002dc0| 69 63 6b 65 64 25 0d 10 | b8 11 3d ac 28 74 69 63 |icked%..|..=.(tic|
|00002dd0| 6b 65 64 25 29 2b 32 0d | 10 c2 05 3a 0d 10 cc 05 |ked%)+2.|...:....|
|00002de0| 3a 0d 10 d6 28 f4 20 2a | 2a 20 48 61 6e 64 6c 65 |:...(. *|* Handle|
|00002df0| 20 73 68 61 64 69 6e 67 | 20 6f 66 20 6d 65 6e 75 | shading| of menu|
|00002e00| 20 69 74 65 6d 73 20 2a | 2a 0d 10 e0 2f dd 20 f2 | items *|*.../. .|
|00002e10| 73 68 61 64 65 5f 6d 65 | 6e 75 5f 69 74 65 6d 28 |shade_me|nu_item(|
|00002e20| 6d 65 6e 75 25 2c 69 74 | 65 6d 25 2c 73 68 61 64 |menu%,it|em%,shad|
|00002e30| 65 5f 74 79 70 65 25 29 | 0d 10 ea 35 20 c8 99 20 |e_type%)|...5 .. |
|00002e40| 22 57 69 6d 70 45 78 74 | 5f 53 68 61 64 65 45 6e |"WimpExt|_ShadeEn|
|00002e50| 74 72 79 22 2c 2c 6d 65 | 6e 75 25 2c 69 74 65 6d |try",,me|nu%,item|
|00002e60| 25 2c 73 68 61 64 65 5f | 74 79 70 65 25 0d 10 f4 |%,shade_|type%...|
|00002e70| 05 e1 0d 10 fe 05 3a 0d | 11 08 05 3a 0d 11 12 1c |......:.|...:....|
|00002e80| f4 20 2a 2a 20 4d 65 73 | 73 61 67 65 20 72 65 63 |. ** Mes|sage rec|
|00002e90| 65 69 76 65 64 20 2a 2a | 0d 11 1c 17 dd 20 f2 6d |eived **|..... .m|
|00002ea0| 65 73 73 61 67 65 5f 72 | 65 63 65 69 76 65 64 0d |essage_r|eceived.|
|00002eb0| 11 26 12 20 ea 20 68 65 | 6c 70 5f 74 6f 6b 65 6e |.&. . he|lp_token|
|00002ec0| 24 0d 11 30 06 20 3a 0d | 11 3a 21 20 e7 20 62 6c |$..0. :.|.:! . bl|
|00002ed0| 6f 63 6b 25 21 31 36 3d | 30 20 8c 20 6b 69 6c 6c |ock%!16=|0 . kill|
|00002ee0| 5f 74 61 73 6b 25 3d b9 | 0d 11 44 20 20 e7 20 62 |_task%=.|..D . b|
|00002ef0| 6c 6f 63 6b 25 21 31 36 | 3d 33 20 8c 20 f2 64 72 |lock%!16|=3 . .dr|
|00002f00| 61 67 5f 74 6f 5f 75 73 | 0d 11 4e 31 20 e7 20 62 |ag_to_us|..N1 . b|
|00002f10| 6c 6f 63 6b 25 21 31 36 | 3d 31 30 20 8c 20 d5 23 |lock%!16|=10 . .#|
|00002f20| 62 6c 6f 63 6b 25 21 32 | 30 2c 22 52 75 6e 20 22 |block%!2|0,"Run "|
|00002f30| 2b 70 72 6f 67 72 61 6d | 24 0d 11 58 62 20 e7 20 |+program|$..Xb . |
|00002f40| 62 6c 6f 63 6b 25 21 31 | 36 3d 26 34 30 30 63 32 |block%!1|6=&400c2|
|00002f50| 20 80 20 62 6c 6f 63 6b | 25 21 34 3c 3e 6f 75 72 | . block|%!4<>our|
|00002f60| 5f 74 61 73 6b 25 20 80 | 20 a4 6d 65 6d 6f 72 79 |_task% .| .memory|
|00002f70| 5f 73 74 72 69 6e 67 28 | 62 6c 6f 63 6b 25 2b 32 |_string(|block%+2|
|00002f80| 38 29 3d 6f 75 72 5f 74 | 61 73 6b 24 20 8c 20 6b |8)=our_t|ask$ . k|
|00002f90| 69 6c 6c 5f 74 61 73 6b | 25 3d b9 0d 11 62 27 20 |ill_task|%=...b' |
|00002fa0| e7 20 62 6c 6f 63 6b 25 | 21 31 36 3d 26 34 35 37 |. block%|!16=&457|
|00002fb0| 38 32 20 80 20 62 6c 6f | 63 6b 25 21 32 30 3d 32 |82 . blo|ck%!20=2|
|00002fc0| 20 8c 0d 11 6c 21 20 20 | c8 99 20 22 57 69 6d 70 | ...l! |.. "Wimp|
|00002fd0| 45 78 74 5f 43 72 65 61 | 74 65 4d 65 6e 75 22 2c |Ext_Crea|teMenu",|
|00002fe0| 2c 2d 31 0d 11 76 37 20 | 20 f2 75 70 64 61 74 65 |,-1..v7 | .update|
|00002ff0| 5f 69 63 6f 6e 28 73 61 | 76 65 25 2c 30 2c a4 6d |_icon(sa|ve%,0,.m|
|00003000| 65 6d 6f 72 79 5f 73 74 | 72 69 6e 67 28 62 6c 6f |emory_st|ring(blo|
|00003010| 63 6b 25 2b 32 34 29 2c | b9 29 0d 11 80 06 20 cd |ck%+24),|.).... .|
|00003020| 0d 11 8a 19 20 e7 20 62 | 6c 6f 63 6b 25 21 31 36 |.... . b|lock%!16|
|00003030| 3d 26 34 35 37 38 33 20 | 8c 0d 11 94 2b 20 20 68 |=&45783 |....+ h|
|00003040| 65 6c 70 5f 74 6f 6b 65 | 6e 24 3d a4 6d 65 6d 6f |elp_toke|n$=.memo|
|00003050| 72 79 5f 73 74 72 69 6e | 67 28 62 6c 6f 63 6b 25 |ry_strin|g(block%|
|00003060| 2b 34 30 29 0d 11 9e 39 | 20 20 c8 99 20 22 57 69 |+40)...9| .. "Wi|
|00003070| 6d 70 45 78 74 5f 53 65 | 6e 64 48 65 6c 70 22 2c |mpExt_Se|ndHelp",|
|00003080| a4 6d 65 73 73 61 67 65 | 30 28 68 65 6c 70 5f 74 |.message|0(help_t|
|00003090| 6f 6b 65 6e 24 29 2c 62 | 6c 6f 63 6b 25 0d 11 a8 |oken$),b|lock%...|
|000030a0| 06 20 cd 0d 11 b2 05 e1 | 0d 11 bc 05 3a 0d 11 c6 |. ......|....:...|
|000030b0| 05 3a 0d 11 d0 2f f4 20 | 2a 2a 20 41 20 66 69 6c |.:.../. |** A fil|
|000030c0| 65 20 68 61 73 20 62 65 | 65 6e 20 64 72 61 67 67 |e has be|en dragg|
|000030d0| 65 64 20 74 6f 20 6f 75 | 72 20 74 61 73 6b 20 2a |ed to ou|r task *|
|000030e0| 2a 0d 11 da 11 dd 20 f2 | 64 72 61 67 5f 74 6f 5f |*..... .|drag_to_|
|000030f0| 75 73 0d 11 e4 17 20 ea | 20 66 69 6c 65 6e 61 6d |us.... .| filenam|
|00003100| 65 24 2c 69 6e 64 65 78 | 25 0d 11 ee 06 20 3a 0d |e$,index|%.... :.|
|00003110| 11 f8 41 20 e7 20 62 6c | 6f 63 6b 25 21 31 32 3d |..A . bl|ock%!12=|
|00003120| 30 20 80 20 62 6c 6f 63 | 6b 25 21 34 30 3d 26 66 |0 . bloc|k%!40=&f|
|00003130| 66 66 20 80 20 28 74 61 | 73 6b 73 25 20 80 20 32 |ff . (ta|sks% . 2|
|00003140| 29 3d 30 20 8c 20 f2 73 | 65 6e 64 5f 66 69 6c 65 |)=0 . .s|end_file|
|00003150| 0d 12 02 45 20 e7 20 62 | 6c 6f 63 6b 25 21 31 32 |...E . b|lock%!12|
|00003160| 3d 30 20 80 20 62 6c 6f | 63 6b 25 21 32 30 3d 6c |=0 . blo|ck%!20=l|
|00003170| 6f 61 64 25 20 80 20 62 | 6c 6f 63 6b 25 21 32 34 |oad% . b|lock%!24|
|00003180| 3d 31 20 80 20 62 6c 6f | 63 6b 25 21 34 30 3d 26 |=1 . blo|ck%!40=&|
|00003190| 66 66 64 20 8c 0d 12 0c | 2d 20 20 f2 6c 6f 61 64 |ffd ....|- .load|
|000031a0| 5f 6d 61 63 72 6f 73 28 | a4 6d 65 6d 6f 72 79 5f |_macros(|.memory_|
|000031b0| 73 74 72 69 6e 67 28 62 | 6c 6f 63 6b 25 2b 34 34 |string(b|lock%+44|
|000031c0| 29 29 0d 12 16 37 20 20 | f2 75 70 64 61 74 65 5f |))...7 |.update_|
|000031d0| 69 63 6f 6e 28 6c 6f 61 | 64 25 2c 30 2c a4 6d 65 |icon(loa|d%,0,.me|
|000031e0| 6d 6f 72 79 5f 73 74 72 | 69 6e 67 28 62 6c 6f 63 |mory_str|ing(bloc|
|000031f0| 6b 25 2b 34 34 29 2c b9 | 29 0d 12 20 23 20 20 69 |k%+44),.|).. # i|
|00003200| 6e 64 65 78 25 3d a9 28 | a4 72 65 61 64 5f 69 63 |ndex%=.(|.read_ic|
|00003210| 6f 6e 28 6c 6f 61 64 25 | 2c 30 29 29 0d 12 2a 38 |on(load%|,0))..*8|
|00003220| 20 20 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 43 61 | .. "Wi|mp_SetCa|
|00003230| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 6c 6f 61 |retPosit|ion",loa|
|00003240| 64 25 2c 30 2c 2d 31 2c | 2d 31 2c 2d 31 2c 69 6e |d%,0,-1,|-1,-1,in|
|00003250| 64 65 78 25 0d 12 34 06 | 20 cd 0d 12 3e 05 e1 0d |dex%..4.| ...>...|
|00003260| 12 48 05 3a 0d 12 52 05 | 3a 0d 12 5c 3a f4 20 2a |.H.:..R.|:..\:. *|
|00003270| 2a 20 52 65 74 75 72 6e | 20 70 72 65 73 73 65 64 |* Return| pressed|
|00003280| 20 6f 72 20 4f 4b 20 63 | 6c 69 63 6b 65 64 20 6f | or OK c|licked o|
|00003290| 6e 20 69 6e 20 6c 6f 61 | 64 20 77 69 6e 64 6f 77 |n in loa|d window|
|000032a0| 20 2a 2a 0d 12 66 0e dd | 20 f2 6c 6f 61 64 5f 6f | **..f..| .load_o|
|000032b0| 6b 0d 12 70 10 20 ea 20 | 66 69 6c 65 6e 61 6d 65 |k..p. . |filename|
|000032c0| 24 0d 12 7a 06 20 3a 0d | 12 84 22 20 66 69 6c 65 |$..z. :.|.." file|
|000032d0| 6e 61 6d 65 24 3d a4 72 | 65 61 64 5f 69 63 6f 6e |name$=.r|ead_icon|
|000032e0| 28 6c 6f 61 64 25 2c 30 | 29 0d 12 8e 22 20 e7 20 |(load%,0|)..." . |
|000032f0| a7 a4 72 65 61 64 5f 69 | 63 6f 6e 28 6c 6f 61 64 |..read_i|con(load|
|00003300| 25 2c 30 29 2c 22 2e 22 | 29 20 8c 0d 12 98 1d 20 |%,0),"."|) ..... |
|00003310| 20 f2 6c 6f 61 64 5f 6d | 61 63 72 6f 73 28 66 69 | .load_m|acros(fi|
|00003320| 6c 65 6e 61 6d 65 24 29 | 0d 12 a2 06 20 cc 0d 12 |lename$)|.... ...|
|00003330| ac 29 20 20 f2 6c 6f 61 | 64 5f 6d 61 63 72 6f 73 |.) .loa|d_macros|
|00003340| 28 6d 61 63 72 6f 73 24 | 2b 22 2e 22 2b 66 69 6c |(macros$|+"."+fil|
|00003350| 65 6e 61 6d 65 24 29 0d | 12 b6 06 20 cd 0d 12 c0 |ename$).|... ....|
|00003360| 05 e1 0d 12 ca 05 3a 0d | 12 d4 05 3a 0d 12 de 2a |......:.|...:...*|
|00003370| f4 20 2a 2a 20 53 74 61 | 72 74 20 75 70 20 74 68 |. ** Sta|rt up th|
|00003380| 65 20 73 65 6e 64 69 6e | 67 20 6f 66 20 61 20 66 |e sendin|g of a f|
|00003390| 69 6c 65 20 2a 2a 0d 12 | e8 10 dd 20 f2 73 65 6e |ile **..|... .sen|
|000033a0| 64 5f 66 69 6c 65 0d 12 | f2 0c 20 ea 20 66 69 6c |d_file..|.. . fil|
|000033b0| 65 24 0d 12 fc 06 20 3a | 0d 13 06 30 20 24 74 65 |e$.... :|...0 $te|
|000033c0| 78 74 25 3d 22 42 75 73 | 79 22 3a f2 72 65 64 72 |xt%="Bus|y":.redr|
|000033d0| 61 77 5f 69 63 6f 6e 28 | 2d 32 2c 69 63 6f 6e 5f |aw_icon(|-2,icon_|
|000033e0| 68 61 6e 64 6c 65 25 29 | 0d 13 10 24 20 66 69 6c |handle%)|...$ fil|
|000033f0| 65 24 3d a4 6d 65 6d 6f | 72 79 5f 73 74 72 69 6e |e$=.memo|ry_strin|
|00003400| 67 28 62 6c 6f 63 6b 25 | 2b 34 34 29 0d 13 1a 27 |g(block%|+44)...'|
|00003410| 20 c8 99 20 22 57 69 6d | 70 5f 47 65 74 43 61 72 | .. "Wim|p_GetCar|
|00003420| 65 74 50 6f 73 69 74 69 | 6f 6e 22 2c 2c 62 6c 6f |etPositi|on",,blo|
|00003430| 63 6b 25 0d 13 24 17 20 | 74 6f 5f 77 69 6e 64 6f |ck%..$. |to_windo|
|00003440| 77 25 3d 21 62 6c 6f 63 | 6b 25 0d 13 2e 18 20 72 |w%=!bloc|k%.... r|
|00003450| 65 61 64 5f 66 69 6c 65 | 25 3d 8e 28 66 69 6c 65 |ead_file|%=.(file|
|00003460| 24 29 0d 13 38 21 20 70 | 6f 6c 6c 5f 6d 61 73 6b |$)..8! p|oll_mask|
|00003470| 25 3d 70 6f 6c 6c 5f 6d | 61 73 6b 25 20 80 20 ac |%=poll_m|ask% . .|
|00003480| 28 31 29 0d 13 42 16 20 | 74 61 73 6b 73 25 3d 74 |(1)..B. |tasks%=t|
|00003490| 61 73 6b 73 25 20 84 20 | 32 0d 13 4c 05 e1 0d 13 |asks% . |2..L....|
|000034a0| 56 05 3a 0d 13 60 05 3a | 0d 13 6a 17 f4 20 2a 2a |V.:..`.:|..j.. **|
|000034b0| 20 4c 6f 61 64 20 6d 61 | 63 72 6f 73 20 2a 2a 0d | Load ma|cros **.|
|000034c0| 13 74 1d dd 20 f2 6c 6f | 61 64 5f 6d 61 63 72 6f |.t.. .lo|ad_macro|
|000034d0| 73 28 66 69 6c 65 6e 61 | 6d 65 24 29 0d 13 7e 12 |s(filena|me$)..~.|
|000034e0| 20 ea 20 66 69 6c 65 25 | 2c 69 63 6f 6e 25 0d 13 | . file%|,icon%..|
|000034f0| 88 08 20 ea 20 85 0d 13 | 92 14 20 ee 20 85 20 ea |.. . ...|.. . . .|
|00003500| 20 d9 23 66 69 6c 65 25 | 3a e1 0d 13 9c 06 20 3a | .#file%|:..... :|
|00003510| 0d 13 a6 17 20 66 69 6c | 65 25 3d 8e 28 66 69 6c |.... fil|e%=.(fil|
|00003520| 65 6e 61 6d 65 24 29 0d | 13 b0 11 20 e7 20 66 69 |ename$).|... . fi|
|00003530| 6c 65 25 3c 3e a3 20 8c | 0d 13 ba 18 20 20 e3 20 |le%<>. .|.... . |
|00003540| 69 63 6f 6e 25 3d 30 20 | b8 20 33 38 20 88 20 32 |icon%=0 |. 38 . 2|
|00003550| 0d 13 c4 27 20 20 20 f2 | 75 70 64 61 74 65 5f 69 |...' .|update_i|
|00003560| 63 6f 6e 28 6d 61 63 72 | 6f 73 25 2c 69 63 6f 6e |con(macr|os%,icon|
|00003570| 25 2c 22 22 2c a3 29 0d | 13 ce 07 20 20 ed 0d 13 |%,"",.).|... ...|
|00003580| d8 18 20 20 e3 20 69 63 | 6f 6e 25 3d 30 20 b8 20 |.. . ic|on%=0 . |
|00003590| 33 38 20 88 20 32 0d 13 | e2 32 20 20 20 f2 75 70 |38 . 2..|.2 .up|
|000035a0| 64 61 74 65 5f 69 63 6f | 6e 28 6d 61 63 72 6f 73 |date_ico|n(macros|
|000035b0| 25 2c 69 63 6f 6e 25 2c | c0 be 23 66 69 6c 65 25 |%,icon%,|..#file%|
|000035c0| 2c 31 30 30 29 2c a3 29 | 0d 13 ec 07 20 20 ed 0d |,100),.)|.... ..|
|000035d0| 13 f6 0d 20 20 d9 23 66 | 69 6c 65 25 0d 14 00 06 |... .#f|ile%....|
|000035e0| 20 cc 0d 14 0a 2f 20 20 | f2 6d 65 73 73 61 67 65 | ..../ |.message|
|000035f0| 28 a4 6d 65 73 73 61 67 | 65 31 28 22 43 61 6e 74 |(.messag|e1("Cant|
|00003600| 4c 6f 61 64 22 2c 66 69 | 6c 65 6e 61 6d 65 24 29 |Load",fi|lename$)|
|00003610| 29 0d 14 14 06 20 cd 0d | 14 1e 05 e1 0d 14 28 05 |).... ..|......(.|
|00003620| 3a 0d 14 32 05 3a 0d 14 | 3c 17 f4 20 2a 2a 20 53 |:..2.:..|<.. ** S|
|00003630| 61 76 65 20 6d 61 63 72 | 6f 73 20 2a 2a 0d 14 46 |ave macr|os **..F|
|00003640| 1d dd 20 f2 73 61 76 65 | 5f 6d 61 63 72 6f 73 28 |.. .save|_macros(|
|00003650| 66 69 6c 65 6e 61 6d 65 | 24 29 0d 14 50 12 20 ea |filename|$)..P. .|
|00003660| 20 66 69 6c 65 25 2c 69 | 63 6f 6e 25 0d 14 5a 08 | file%,i|con%..Z.|
|00003670| 20 ea 20 85 0d 14 64 36 | 20 ee 20 85 20 ea 20 f2 | . ...d6| . . . .|
|00003680| 6d 65 73 73 61 67 65 28 | a4 6d 65 73 73 61 67 65 |message(|.message|
|00003690| 31 28 22 43 61 6e 74 53 | 61 76 65 22 2c 66 69 6c |1("CantS|ave",fil|
|000036a0| 65 6e 61 6d 65 24 29 29 | 3a e1 0d 14 6e 06 20 3a |ename$))|:...n. :|
|000036b0| 0d 14 78 17 20 66 69 6c | 65 25 3d ae 28 66 69 6c |..x. fil|e%=.(fil|
|000036c0| 65 6e 61 6d 65 24 29 0d | 14 82 11 20 e7 20 66 69 |ename$).|... . fi|
|000036d0| 6c 65 25 3c 3e 30 20 8c | 0d 14 8c 18 20 20 e3 20 |le%<>0 .|.... . |
|000036e0| 69 63 6f 6e 25 3d 30 20 | b8 20 33 38 20 88 20 32 |icon%=0 |. 38 . 2|
|000036f0| 0d 14 96 28 20 20 20 d5 | 23 66 69 6c 65 25 2c a4 |...( .|#file%,.|
|00003700| 72 65 61 64 5f 69 63 6f | 6e 28 6d 61 63 72 6f 73 |read_ico|n(macros|
|00003710| 25 2c 69 63 6f 6e 25 29 | 0d 14 a0 07 20 20 ed 0d |%,icon%)|.... ..|
|00003720| 14 aa 0d 20 20 d9 23 66 | 69 6c 65 25 0d 14 b4 06 |... .#f|ile%....|
|00003730| 20 cd 0d 14 be 05 e1 0d | 14 c8 05 3a 0d 14 d2 05 | .......|...:....|
|00003740| 3a 0d 14 dc 3b f4 20 2a | 2a 20 50 72 65 70 61 72 |:...;. *|* Prepar|
|00003750| 65 20 74 68 65 20 6d 61 | 63 72 6f 73 20 66 6f 72 |e the ma|cros for|
|00003760| 20 73 61 76 69 6e 67 20 | 61 6e 64 20 72 65 74 75 | saving |and retu|
|00003770| 72 6e 20 6c 65 6e 67 74 | 68 20 2a 2a 0d 14 e6 15 |rn lengt|h **....|
|00003780| dd 20 a4 70 72 65 70 61 | 72 65 5f 6d 61 63 72 6f |. .prepa|re_macro|
|00003790| 73 0d 14 f0 17 20 ea 20 | 74 6f 25 2c 69 63 6f 6e |s.... . |to%,icon|
|000037a0| 25 2c 6d 61 63 72 6f 24 | 0d 14 fa 06 20 3a 0d 15 |%,macro$|.... :..|
|000037b0| 04 13 20 74 6f 25 3d 73 | 61 76 65 5f 61 72 65 61 |.. to%=s|ave_area|
|000037c0| 25 0d 15 0e 17 20 e3 20 | 69 63 6f 6e 25 3d 30 20 |%.... . |icon%=0 |
|000037d0| b8 20 33 38 20 88 20 32 | 0d 15 18 26 20 20 6d 61 |. 38 . 2|...& ma|
|000037e0| 63 72 6f 24 3d a4 72 65 | 61 64 5f 69 63 6f 6e 28 |cro$=.re|ad_icon(|
|000037f0| 6d 61 63 72 6f 73 25 2c | 69 63 6f 6e 25 29 0d 15 |macros%,|icon%)..|
|00003800| 22 20 20 20 24 74 6f 25 | 3d 6d 61 63 72 6f 24 3a |" $to%|=macro$:|
|00003810| 74 6f 25 2b 3d a9 28 6d | 61 63 72 6f 24 29 0d 15 |to%+=.(m|acro$)..|
|00003820| 2c 14 20 20 3f 74 6f 25 | 3d 31 30 3a 74 6f 25 2b |,. ?to%|=10:to%+|
|00003830| 3d 31 0d 15 36 06 20 ed | 0d 15 40 13 3d 74 6f 25 |=1..6. .|..@.=to%|
|00003840| 2d 73 61 76 65 5f 61 72 | 65 61 25 0d 15 4a 05 3a |-save_ar|ea%..J.:|
|00003850| 0d 15 54 05 3a 0d 15 5e | 1c f4 20 2a 2a 20 52 65 |..T.:..^|.. ** Re|
|00003860| 74 75 72 6e 20 69 63 6f | 6e 20 74 65 78 74 20 2a |turn ico|n text *|
|00003870| 2a 0d 15 68 1f dd 20 a4 | 72 65 61 64 5f 69 63 6f |*..h.. .|read_ico|
|00003880| 6e 28 77 69 6e 64 6f 77 | 25 2c 69 63 6f 6e 25 29 |n(window|%,icon%)|
|00003890| 0d 15 72 23 20 21 62 6c | 6f 63 6b 25 3d 77 69 6e |..r# !bl|ock%=win|
|000038a0| 64 6f 77 25 3a 62 6c 6f | 63 6b 25 21 34 3d 69 63 |dow%:blo|ck%!4=ic|
|000038b0| 6f 6e 25 0d 15 7c 23 20 | c8 99 20 22 57 69 6d 70 |on%..|# |.. "Wimp|
|000038c0| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|000038d0| 62 6c 6f 63 6b 25 0d 15 | 86 1c 20 e7 20 28 62 6c |block%..|.. . (bl|
|000038e0| 6f 63 6b 25 21 32 34 20 | 80 20 32 35 36 29 3d 30 |ock%!24 |. 256)=0|
|000038f0| 20 8c 0d 15 90 25 20 20 | 3d c0 a4 6d 65 6d 6f 72 | ....% |=..memor|
|00003900| 79 5f 73 74 72 69 6e 67 | 28 62 6c 6f 63 6b 25 2b |y_string|(block%+|
|00003910| 31 32 29 2c 31 32 29 0d | 15 9a 06 20 cc 0d 15 a4 |12),12).|... ....|
|00003920| 2c 20 20 3d c0 a4 6d 65 | 6d 6f 72 79 5f 73 74 72 |, =..me|mory_str|
|00003930| 69 6e 67 28 62 6c 6f 63 | 6b 25 21 32 38 29 2c 62 |ing(bloc|k%!28),b|
|00003940| 6c 6f 63 6b 25 21 33 36 | 29 0d 15 ae 06 20 cd 0d |lock%!36|).... ..|
|00003950| 15 b8 05 3a 0d 15 c2 05 | 3a 0d 15 cc 1c f4 20 2a |...:....|:..... *|
|00003960| 2a 20 55 70 64 61 74 65 | 20 69 63 6f 6e 20 74 65 |* Update| icon te|
|00003970| 78 74 20 2a 2a 0d 15 d6 | 30 dd 20 f2 75 70 64 61 |xt **...|0. .upda|
|00003980| 74 65 5f 69 63 6f 6e 28 | 77 69 6e 64 6f 77 25 2c |te_icon(|window%,|
|00003990| 69 63 6f 6e 25 2c 74 65 | 78 74 24 2c 67 73 74 72 |icon%,te|xt$,gstr|
|000039a0| 61 6e 73 25 29 0d 15 e0 | 15 20 62 6c 6f 63 6b 25 |ans%)...|. block%|
|000039b0| 21 30 3d 77 69 6e 64 6f | 77 25 0d 15 ea 13 20 62 |!0=windo|w%.... b|
|000039c0| 6c 6f 63 6b 25 21 34 3d | 69 63 6f 6e 25 0d 15 f4 |lock%!4=|icon%...|
|000039d0| 23 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |# .. "Wi|mp_GetIc|
|000039e0| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 25 |onState"|,,block%|
|000039f0| 0d 15 fe 1d 20 e7 20 28 | 62 6c 6f 63 6b 25 21 32 |.... . (|block%!2|
|00003a00| 34 20 80 20 32 35 36 29 | 3c 3e 30 20 8c 0d 16 08 |4 . 256)|<>0 ....|
|00003a10| 12 20 20 e7 20 67 73 74 | 72 61 6e 73 25 20 8c 0d |. . gst|rans% ..|
|00003a20| 16 12 35 20 20 20 c8 99 | 20 22 4f 53 5f 47 53 54 |..5 ..| "OS_GST|
|00003a30| 72 61 6e 73 22 2c 74 65 | 78 74 24 2b 22 7c 40 22 |rans",te|xt$+"|@"|
|00003a40| 2c 62 6c 6f 63 6b 25 21 | 32 38 2c 62 6c 6f 63 6b |,block%!|28,block|
|00003a50| 25 21 33 36 0d 16 1c 07 | 20 20 cc 0d 16 26 17 20 |%!36....| ...&. |
|00003a60| 20 20 24 62 6c 6f 63 6b | 25 21 32 38 3d 74 65 78 | $block|%!28=tex|
|00003a70| 74 24 0d 16 30 07 20 20 | cd 0d 16 3a 1c 20 20 62 |t$..0. |...:. b|
|00003a80| 6c 6f 63 6b 25 21 38 3d | 30 3a 62 6c 6f 63 6b 25 |lock%!8=|0:block%|
|00003a90| 21 31 32 3d 30 0d 16 44 | 24 20 20 c8 99 20 22 57 |!12=0..D|$ .. "W|
|00003aa0| 69 6d 70 5f 53 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_SetI|conState|
|00003ab0| 22 2c 2c 62 6c 6f 63 6b | 25 0d 16 4e 06 20 cd 0d |",,block|%..N. ..|
|00003ac0| 16 58 05 e1 0d 16 62 05 | 3a 0d 16 6c 05 3a 0d 16 |.X....b.|:..l.:..|
|00003ad0| 76 17 f4 20 2a 2a 20 52 | 65 64 72 61 77 20 69 63 |v.. ** R|edraw ic|
|00003ae0| 6f 6e 20 2a 2a 0d 16 80 | 21 dd 20 f2 72 65 64 72 |on **...|!. .redr|
|00003af0| 61 77 5f 69 63 6f 6e 28 | 77 69 6e 64 6f 77 25 2c |aw_icon(|window%,|
|00003b00| 69 63 6f 6e 25 29 0d 16 | 8a 23 20 21 62 6c 6f 63 |icon%)..|.# !bloc|
|00003b10| 6b 25 3d 77 69 6e 64 6f | 77 25 3a 62 6c 6f 63 6b |k%=windo|w%:block|
|00003b20| 25 21 34 3d 69 63 6f 6e | 25 0d 16 94 1b 20 62 6c |%!4=icon|%.... bl|
|00003b30| 6f 63 6b 25 21 38 3d 30 | 3a 62 6c 6f 63 6b 25 21 |ock%!8=0|:block%!|
|00003b40| 31 32 3d 30 0d 16 9e 23 | 20 c8 99 20 22 57 69 6d |12=0...#| .. "Wim|
|00003b50| 70 5f 53 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_SetIco|nState",|
|00003b60| 2c 62 6c 6f 63 6b 25 0d | 16 a8 05 e1 0d 16 b2 05 |,block%.|........|
|00003b70| 3a 0d 16 bc 05 3a 0d 16 | c6 39 f4 20 2a 2a 20 54 |:....:..|.9. ** T|
|00003b80| 72 61 6e 73 6c 61 74 65 | 20 61 20 6d 65 6d 6f 72 |ranslate| a memor|
|00003b90| 79 20 73 74 72 69 6e 67 | 20 69 6e 74 6f 20 61 20 |y string| into a |
|00003ba0| 42 41 53 49 43 20 73 74 | 72 69 6e 67 20 2a 2a 0d |BASIC st|ring **.|
|00003bb0| 16 d0 1e dd 20 a4 6d 65 | 6d 6f 72 79 5f 73 74 72 |.... .me|mory_str|
|00003bc0| 69 6e 67 28 70 6f 69 6e | 74 65 72 25 29 0d 16 da |ing(poin|ter%)...|
|00003bd0| 0e 20 ea 20 73 74 72 69 | 6e 67 24 0d 16 e4 06 20 |. . stri|ng$.... |
|00003be0| 3a 0d 16 ee 0f 20 73 74 | 72 69 6e 67 24 3d 22 22 |:.... st|ring$=""|
|00003bf0| 0d 16 f8 36 20 c8 95 20 | 28 3f 70 6f 69 6e 74 65 |...6 .. |(?pointe|
|00003c00| 72 25 3c 3e 30 20 80 20 | 3f 70 6f 69 6e 74 65 72 |r%<>0 . |?pointer|
|00003c10| 25 3c 3e 31 30 20 80 20 | 3f 70 6f 69 6e 74 65 72 |%<>10 . |?pointer|
|00003c20| 25 3c 3e 31 33 29 0d 17 | 02 27 20 20 73 74 72 69 |%<>13)..|.' stri|
|00003c30| 6e 67 24 2b 3d bd 28 3f | 70 6f 69 6e 74 65 72 25 |ng$+=.(?|pointer%|
|00003c40| 29 3a 70 6f 69 6e 74 65 | 72 25 2b 3d 31 0d 17 0c |):pointe|r%+=1...|
|00003c50| 06 20 ce 0d 17 16 0c 3d | 73 74 72 69 6e 67 24 0d |. .....=|string$.|
|00003c60| 17 20 05 3a 0d 17 2a 05 | 3a 0d 17 34 21 f4 20 2a |. .:..*.|:..4!. *|
|00003c70| 2a 20 52 65 61 64 20 73 | 79 73 74 65 6d 20 76 61 |* Read s|ystem va|
|00003c80| 72 69 61 62 6c 65 73 20 | 2a 2a 0d 17 3e 1a dd 20 |riables |**..>.. |
|00003c90| a4 72 65 61 64 5f 76 61 | 72 28 76 61 72 69 61 62 |.read_va|r(variab|
|00003ca0| 6c 65 24 29 0d 17 48 0e | 20 ea 20 6c 65 6e 67 74 |le$)..H.| . lengt|
|00003cb0| 68 25 0d 17 52 06 20 3a | 0d 17 5c 3b 20 c8 99 20 |h%..R. :|..\; .. |
|00003cc0| 22 4f 53 5f 52 65 61 64 | 56 61 72 56 61 6c 22 2c |"OS_Read|VarVal",|
|00003cd0| 76 61 72 69 61 62 6c 65 | 24 2c 72 65 61 64 5f 76 |variable|$,read_v|
|00003ce0| 61 72 25 2c 32 35 36 20 | b8 20 2c 2c 6c 65 6e 67 |ar%,256 |. ,,leng|
|00003cf0| 74 68 25 0d 17 66 1c 20 | 3f 28 72 65 61 64 5f 76 |th%..f. |?(read_v|
|00003d00| 61 72 25 2b 6c 65 6e 67 | 74 68 25 29 3d 31 33 0d |ar%+leng|th%)=13.|
|00003d10| 17 70 0f 3d 24 72 65 61 | 64 5f 76 61 72 25 0d 17 |.p.=$rea|d_var%..|
|00003d20| 7a 05 3a 0d 17 84 05 3a | 0d 17 8e 40 f4 20 2a 2a |z.:....:|...@. **|
|00003d30| 20 46 69 6e 64 20 6e 75 | 6d 62 65 72 20 6f 66 20 | Find nu|mber of |
|00003d40| 6f 63 63 75 72 65 6e 63 | 65 73 20 6f 66 20 61 20 |occurenc|es of a |
|00003d50| 63 68 61 72 61 63 74 65 | 72 20 69 6e 20 61 20 73 |characte|r in a s|
|00003d60| 74 72 69 6e 67 20 2a 2a | 0d 17 98 2f dd 20 a4 63 |tring **|.../. .c|
|00003d70| 68 61 72 61 63 74 65 72 | 5f 6f 63 63 75 72 65 6e |haracter|_occuren|
|00003d80| 63 65 73 28 73 74 72 69 | 6e 67 24 2c 63 68 61 72 |ces(stri|ng$,char|
|00003d90| 61 63 74 65 72 24 29 0d | 17 a2 1c 20 ea 20 6f 63 |acter$).|... . oc|
|00003da0| 63 75 72 65 6e 63 65 73 | 25 2c 70 6f 73 69 74 69 |curences|%,positi|
|00003db0| 6f 6e 25 0d 17 ac 06 20 | 3a 0d 17 b6 26 20 c8 95 |on%.... |:...& ..|
|00003dc0| 20 a7 73 74 72 69 6e 67 | 24 2c 63 68 61 72 61 63 | .string|$,charac|
|00003dd0| 74 65 72 24 2c 70 6f 73 | 69 74 69 6f 6e 25 29 0d |ter$,pos|ition%).|
|00003de0| 17 c0 30 20 20 70 6f 73 | 69 74 69 6f 6e 25 3d a7 |..0 pos|ition%=.|
|00003df0| 73 74 72 69 6e 67 24 2c | 63 68 61 72 61 63 74 65 |string$,|characte|
|00003e00| 72 24 2c 70 6f 73 69 74 | 69 6f 6e 25 29 2b 31 0d |r$,posit|ion%)+1.|
|00003e10| 17 ca 14 20 20 6f 63 63 | 75 72 65 6e 63 65 73 25 |... occ|urences%|
|00003e20| 2b 3d 31 0d 17 d4 06 20 | ce 0d 17 de 10 3d 6f 63 |+=1.... |.....=oc|
|00003e30| 63 75 72 65 6e 63 65 73 | 25 0d 17 e8 05 3a 0d 17 |curences|%....:..|
|00003e40| f2 05 3a 0d 17 fc 1f f4 | 20 2a 2a 20 52 65 74 75 |..:.....| ** Retu|
|00003e50| 72 6e 20 73 69 7a 65 20 | 6f 66 20 66 69 6c 65 20 |rn size |of file |
|00003e60| 2a 2a 0d 18 06 15 dd 20 | a4 73 69 7a 65 5f 6f 66 |**..... |.size_of|
|00003e70| 28 66 69 6c 65 24 29 0d | 18 10 0c 20 ea 20 73 69 |(file$).|... . si|
|00003e80| 7a 65 25 0d 18 1a 06 20 | 3a 0d 18 24 26 20 c8 99 |ze%.... |:..$& ..|
|00003e90| 20 22 4f 53 5f 46 69 6c | 65 22 2c 31 37 2c 66 69 | "OS_Fil|e",17,fi|
|00003ea0| 6c 65 24 20 b8 20 2c 2c | 2c 2c 73 69 7a 65 25 0d |le$ . ,,|,,size%.|
|00003eb0| 18 2e 0a 3d 73 69 7a 65 | 25 0d 18 38 05 3a 0d 18 |...=size|%..8.:..|
|00003ec0| 42 05 3a 0d 18 4c 19 f4 | 20 2a 2a 20 47 65 74 20 |B.:..L..| ** Get |
|00003ed0| 6c 65 61 66 20 6e 61 6d | 65 20 2a 2a 0d 18 56 1b |leaf nam|e **..V.|
|00003ee0| dd 20 a4 67 65 74 5f 6c | 65 61 66 28 66 69 6c 65 |. .get_l|eaf(file|
|00003ef0| 5f 70 61 74 68 24 29 0d | 18 60 18 20 c8 95 20 a7 |_path$).|.`. .. .|
|00003f00| 66 69 6c 65 5f 70 61 74 | 68 24 2c 22 2e 22 29 0d |file_pat|h$,".").|
|00003f10| 18 6a 30 20 20 66 69 6c | 65 5f 70 61 74 68 24 3d |.j0 fil|e_path$=|
|00003f20| c1 66 69 6c 65 5f 70 61 | 74 68 24 2c a7 66 69 6c |.file_pa|th$,.fil|
|00003f30| 65 5f 70 61 74 68 24 2c | 22 2e 22 29 2b 31 29 0d |e_path$,|".")+1).|
|00003f40| 18 74 06 20 ce 0d 18 7e | 0f 3d 66 69 6c 65 5f 70 |.t. ...~|.=file_p|
|00003f50| 61 74 68 24 0d 18 88 05 | 3a 0d 18 92 05 3a 0d 18 |ath$....|:....:..|
|00003f60| 9c 19 f4 20 2a 2a 20 4f | 70 65 6e 20 61 20 77 69 |... ** O|pen a wi|
|00003f70| 6e 64 6f 77 20 2a 2a 0d | 18 a6 1b dd 20 f2 6f 70 |ndow **.|.... .op|
|00003f80| 65 6e 5f 77 69 6e 64 6f | 77 28 77 69 6e 64 6f 77 |en_windo|w(window|
|00003f90| 25 29 0d 18 b0 14 20 21 | 62 6c 6f 63 6b 25 3d 77 |%).... !|block%=w|
|00003fa0| 69 6e 64 6f 77 25 0d 18 | ba 25 20 c8 99 20 22 57 |indow%..|.% .. "W|
|00003fb0| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00003fc0| 74 65 22 2c 2c 62 6c 6f | 63 6b 25 0d 18 c4 11 20 |te",,blo|ck%.... |
|00003fd0| 62 6c 6f 63 6b 25 21 32 | 38 3d 2d 31 0d 18 ce 21 |block%!2|8=-1...!|
|00003fe0| 20 c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 | .. "Wim|p_OpenWi|
|00003ff0| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 25 0d 18 d8 |ndow",,b|lock%...|
|00004000| 05 e1 0d 18 e2 05 3a 0d | 18 ec 05 3a 0d 18 f6 19 |......:.|...:....|
|00004010| f4 20 2a 2a 20 48 69 64 | 65 20 61 20 77 69 6e 64 |. ** Hid|e a wind|
|00004020| 6f 77 20 2a 2a 0d 19 00 | 1b dd 20 f2 68 69 64 65 |ow **...|.. .hide|
|00004030| 5f 77 69 6e 64 6f 77 28 | 77 69 6e 64 6f 77 25 29 |_window(|window%)|
|00004040| 0d 19 0a 14 20 21 62 6c | 6f 63 6b 25 3d 77 69 6e |.... !bl|ock%=win|
|00004050| 64 6f 77 25 0d 19 14 25 | 20 c8 99 20 22 57 69 6d |dow%...%| .. "Wim|
|00004060| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|00004070| 22 2c 2c 62 6c 6f 63 6b | 25 0d 19 1e 19 20 62 6c |",,block|%.... bl|
|00004080| 6f 63 6b 25 21 34 3d ac | 28 62 6c 6f 63 6b 25 21 |ock%!4=.|(block%!|
|00004090| 34 29 0d 19 28 1b 20 62 | 6c 6f 63 6b 25 21 31 32 |4)..(. b|lock%!12|
|000040a0| 3d ac 28 62 6c 6f 63 6b | 25 21 31 32 29 0d 19 32 |=.(block|%!12)..2|
|000040b0| 21 20 c8 99 20 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |! .. "Wi|mp_OpenW|
|000040c0| 69 6e 64 6f 77 22 2c 2c | 62 6c 6f 63 6b 25 0d 19 |indow",,|block%..|
|000040d0| 3c 05 e1 0d 19 46 05 3a | 0d 19 50 05 3a 0d 19 5a |<....F.:|..P.:..Z|
|000040e0| 1a f4 20 2a 2a 20 43 6c | 6f 73 65 20 61 20 77 69 |.. ** Cl|ose a wi|
|000040f0| 6e 64 6f 77 20 2a 2a 0d | 19 64 1c dd 20 f2 63 6c |ndow **.|.d.. .cl|
|00004100| 6f 73 65 5f 77 69 6e 64 | 6f 77 28 77 69 6e 64 6f |ose_wind|ow(windo|
|00004110| 77 25 29 0d 19 6e 14 20 | 21 62 6c 6f 63 6b 25 3d |w%)..n. |!block%=|
|00004120| 77 69 6e 64 6f 77 25 0d | 19 78 25 20 c8 99 20 22 |window%.|.x% .. "|
|00004130| 57 69 6d 70 45 78 74 5f | 43 6c 6f 73 65 4c 69 6e |WimpExt_|CloseLin|
|00004140| 6b 65 64 22 2c 2c 62 6c | 6f 63 6b 25 0d 19 82 05 |ked",,bl|ock%....|
|00004150| e1 0d 19 8c 05 3a 0d 19 | 96 05 3a 0d 19 a0 40 f4 |.....:..|..:...@.|
|00004160| 20 2a 2a 20 52 65 74 75 | 72 6e 20 74 68 65 20 61 | ** Retu|rn the a|
|00004170| 70 70 72 6f 70 72 69 61 | 74 65 20 73 74 72 69 6e |ppropria|te strin|
|00004180| 67 20 66 72 6f 6d 20 74 | 68 65 20 4d 65 73 73 61 |g from t|he Messa|
|00004190| 67 65 73 20 66 69 6c 65 | 20 2a 2a 0d 19 aa 17 dd |ges file| **.....|
|000041a0| 20 a4 6d 65 73 73 61 67 | 65 30 28 74 6f 6b 65 6e | .messag|e0(token|
|000041b0| 24 29 0d 19 b4 0e 20 ea | 20 73 74 72 69 6e 67 25 |$).... .| string%|
|000041c0| 0d 19 be 06 20 3a 0d 19 | c8 56 20 c8 99 20 22 4d |.... :..|.V .. "M|
|000041d0| 65 73 73 61 67 65 54 72 | 61 6e 73 5f 4c 6f 6f 6b |essageTr|ans_Look|
|000041e0| 75 70 22 2c 6d 73 67 5f | 68 61 6e 64 6c 65 25 2c |up",msg_|handle%,|
|000041f0| 74 6f 6b 65 6e 24 2c 72 | 65 61 64 5f 76 61 72 25 |token$,r|ead_var%|
|00004200| 2c 32 35 36 2c 22 22 2c | 22 22 2c 22 22 2c 22 22 |,256,"",|"","",""|
|00004210| 20 b8 20 2c 2c 73 74 72 | 69 6e 67 25 0d 19 d2 1c | . ,,str|ing%....|
|00004220| 3d a4 6d 65 6d 6f 72 79 | 5f 73 74 72 69 6e 67 28 |=.memory|_string(|
|00004230| 73 74 72 69 6e 67 25 29 | 0d 19 dc 05 3a 0d 19 e6 |string%)|....:...|
|00004240| 05 3a 0d 19 f0 4f f4 20 | 2a 2a 20 53 75 62 73 74 |.:...O. |** Subst|
|00004250| 69 74 75 74 65 20 74 68 | 65 20 66 69 72 73 74 20 |itute th|e first |
|00004260| 70 61 72 61 6d 65 74 65 | 72 20 61 6e 64 20 72 65 |paramete|r and re|
|00004270| 74 75 72 6e 20 73 74 72 | 69 6e 67 20 66 72 6f 6d |turn str|ing from|
|00004280| 20 4d 65 73 73 61 67 65 | 73 20 66 69 6c 65 20 2a | Message|s file *|
|00004290| 2a 0d 19 fa 22 dd 20 a4 | 6d 65 73 73 61 67 65 31 |*...". .|message1|
|000042a0| 28 74 6f 6b 65 6e 24 2c | 70 61 72 61 6d 65 74 65 |(token$,|paramete|
|000042b0| 72 24 29 0d 1a 04 0e 20 | ea 20 73 74 72 69 6e 67 |r$).... |. string|
|000042c0| 25 0d 1a 0e 06 20 3a 0d | 1a 18 5e 20 c8 99 20 22 |%.... :.|..^ .. "|
|000042d0| 4d 65 73 73 61 67 65 54 | 72 61 6e 73 5f 4c 6f 6f |MessageT|rans_Loo|
|000042e0| 6b 75 70 22 2c 6d 73 67 | 5f 68 61 6e 64 6c 65 25 |kup",msg|_handle%|
|000042f0| 2c 74 6f 6b 65 6e 24 2c | 72 65 61 64 5f 76 61 72 |,token$,|read_var|
|00004300| 25 2c 32 35 36 2c 70 61 | 72 61 6d 65 74 65 72 24 |%,256,pa|rameter$|
|00004310| 2c 22 22 2c 22 22 2c 22 | 22 20 b8 20 2c 2c 73 74 |,"","","|" . ,,st|
|00004320| 72 69 6e 67 25 0d 1a 22 | 1c 3d a4 6d 65 6d 6f 72 |ring%.."|.=.memor|
|00004330| 79 5f 73 74 72 69 6e 67 | 28 73 74 72 69 6e 67 25 |y_string|(string%|
|00004340| 29 0d 1a 2c 04 0d 1a 36 | 05 3a 0d 1a 40 05 3a 0d |)..,...6|.:..@.:.|
|00004350| 1a 4a 16 f4 20 2a 2a 20 | 53 68 6f 77 20 65 72 72 |.J.. ** |Show err|
|00004360| 6f 72 20 2a 2a 0d 1a 54 | 14 dd 20 f2 65 72 72 6f |or **..T|.. .erro|
|00004370| 72 5f 68 61 6e 64 6c 65 | 72 0d 1a 5e 0e 20 ea 20 |r_handle|r..^. . |
|00004380| 62 75 74 74 6f 6e 25 0d | 1a 68 06 20 3a 0d 1a 72 |button%.|.h. :..r|
|00004390| 13 20 e7 20 65 72 72 6f | 72 25 3d 32 20 8c 20 e0 |. . erro|r%=2 . .|
|000043a0| 0d 1a 7c 35 20 e7 20 65 | 72 72 6f 72 25 3d 31 20 |..|5 . e|rror%=1 |
|000043b0| 8c 20 65 72 72 6f 72 25 | 3d 32 3a f2 65 72 72 6f |. error%|=2:.erro|
|000043c0| 72 5f 68 61 6e 64 6c 65 | 72 32 3a 65 72 72 6f 72 |r_handle|r2:error|
|000043d0| 25 3d 30 3a e1 0d 1a 86 | 0d 20 65 72 72 6f 72 25 |%=0:....|. error%|
|000043e0| 3d 31 0d 1a 90 7d 20 c8 | 99 20 22 57 69 6d 70 45 |=1...} .|. "WimpE|
|000043f0| 78 74 5f 43 6f 6e 74 72 | 6f 6c 49 6d 6d 65 64 69 |xt_Contr|olImmedi|
|00004400| 61 74 65 22 2c 2c 32 2c | 22 45 72 72 6f 72 20 66 |ate",,2,|"Error f|
|00004410| 72 6f 6d 20 22 2b 6f 75 | 72 5f 74 61 73 6b 24 2c |rom "+ou|r_task$,|
|00004420| f6 24 2b 22 20 28 49 6e | 74 65 72 6e 61 6c 20 65 |.$+" (In|ternal e|
|00004430| 72 72 6f 72 20 63 6f 64 | 65 20 22 2b c3 28 9e 2f |rror cod|e "+.(./|
|00004440| 31 30 29 2b 22 29 22 2c | 62 75 74 5f 6f 6b 71 75 |10)+")",|but_okqu|
|00004450| 69 74 25 2c 30 20 b8 20 | 62 75 74 74 6f 6e 25 0d |it%,0 . |button%.|
|00004460| 1a 9a 0d 20 65 72 72 6f | 72 25 3d 30 0d 1a a4 21 |... erro|r%=0...!|
|00004470| 20 e7 20 62 75 74 74 6f | 6e 25 3d 33 20 8c 20 f2 | . butto|n%=3 . .|
|00004480| 73 68 75 74 64 6f 77 6e | 5f 74 61 73 6b 0d 1a ae |shutdown|_task...|
|00004490| 05 e1 0d 1a b8 05 3a 0d | 1a c2 05 3a 0d 1a cc 20 |......:.|...:... |
|000044a0| f4 20 2a 2a 20 53 68 6f | 77 20 61 20 73 65 72 69 |. ** Sho|w a seri|
|000044b0| 6f 75 73 20 65 72 72 6f | 72 20 2a 2a 0d 1a d6 15 |ous erro|r **....|
|000044c0| dd 20 f2 65 72 72 6f 72 | 5f 68 61 6e 64 6c 65 72 |. .error|_handler|
|000044d0| 32 0d 1a e0 0e 20 ea 20 | 73 74 72 69 6e 67 24 0d |2.... . |string$.|
|000044e0| 1a ea 06 20 3a 0d 1a f4 | 34 20 73 74 72 69 6e 67 |... :...|4 string|
|000044f0| 24 3d f6 24 2b 22 20 28 | 49 6e 74 65 72 6e 61 6c |$=.$+" (|Internal|
|00004500| 20 65 72 72 6f 72 20 63 | 6f 64 65 20 22 2b c3 28 | error c|ode "+.(|
|00004510| 9e 2f 31 30 29 2b 22 29 | 22 0d 1a fe 2a 20 e7 20 |./10)+")|"...* . |
|00004520| c2 73 74 72 69 6e 67 24 | 2c 31 29 3d 22 2e 22 20 |.string$|,1)="." |
|00004530| 8c 20 73 74 72 69 6e 67 | 24 3d c0 73 74 72 69 6e |. string|$=.strin|
|00004540| 67 24 29 0d 1b 08 44 20 | 21 62 6c 6f 63 6b 25 3d |g$)...D |!block%=|
|00004550| 9f 3a 24 28 62 6c 6f 63 | 6b 25 2b 34 29 3d 73 74 |.:$(bloc|k%+4)=st|
|00004560| 72 69 6e 67 24 2b 22 2e | 20 43 6c 69 63 6b 20 43 |ring$+".| Click C|
|00004570| 41 4e 43 45 4c 20 74 6f | 20 71 75 69 74 20 70 72 |ANCEL to| quit pr|
|00004580| 6f 67 72 61 6d 2e 22 0d | 1b 12 53 20 c8 99 20 22 |ogram.".|..S .. "|
|00004590| 57 69 6d 70 5f 52 65 70 | 6f 72 74 45 72 72 6f 72 |Wimp_Rep|ortError|
|000045a0| 22 2c 62 6c 6f 63 6b 25 | 2c 25 31 30 30 31 31 2c |",block%|,%10011,|
|000045b0| 22 53 65 72 69 6f 75 73 | 20 65 72 72 6f 72 20 66 |"Serious| error f|
|000045c0| 72 6f 6d 20 22 2b 6f 75 | 72 5f 74 61 73 6b 24 20 |rom "+ou|r_task$ |
|000045d0| b8 20 2c 62 75 74 74 6f | 6e 25 0d 1b 1c 1f 20 e7 |. ,butto|n%.... .|
|000045e0| 20 62 75 74 74 6f 6e 25 | 3d 32 20 8c 20 6b 69 6c | button%|=2 . kil|
|000045f0| 6c 5f 74 61 73 6b 25 3d | b9 0d 1b 26 05 e1 0d 1b |l_task%=|...&....|
|00004600| 30 05 3a 0d 1b 3a 05 3a | 0d 1b 44 18 f4 20 2a 2a |0.:..:.:|..D.. **|
|00004610| 20 53 68 6f 77 20 6d 65 | 73 73 61 67 65 20 2a 2a | Show me|ssage **|
|00004620| 0d 1b 4e 18 dd 20 f2 6d | 65 73 73 61 67 65 28 6d |..N.. .m|essage(m|
|00004630| 65 73 73 61 67 65 24 29 | 0d 1b 58 52 20 c8 99 20 |essage$)|..XR .. |
|00004640| 22 57 69 6d 70 45 78 74 | 5f 43 6f 6e 74 72 6f 6c |"WimpExt|_Control|
|00004650| 49 6d 6d 65 64 69 61 74 | 65 22 2c 2c 32 2c 22 4d |Immediat|e",,2,"M|
|00004660| 65 73 73 61 67 65 20 66 | 72 6f 6d 20 22 2b 6f 75 |essage f|rom "+ou|
|00004670| 72 5f 74 61 73 6b 24 2c | 6d 65 73 73 61 67 65 24 |r_task$,|message$|
|00004680| 2c 62 75 74 5f 6f 6b 25 | 2c 30 0d 1b 62 05 e1 0d |,but_ok%|,0..b...|
|00004690| 1b 6c 05 3a 0d 1b 76 05 | 3a 0d 1b 80 1b f4 20 2a |.l.:..v.|:..... *|
|000046a0| 2a 20 51 75 65 72 79 20 | 73 6f 6d 65 74 68 69 6e |* Query |somethin|
|000046b0| 67 20 2a 2a 0d 1b 8a 14 | dd 20 a4 71 75 65 72 79 |g **....|. .query|
|000046c0| 28 71 75 65 72 79 24 29 | 0d 1b 94 0e 20 ea 20 61 |(query$)|.... . a|
|000046d0| 6e 73 77 65 72 25 0d 1b | 9e 06 20 3a 0d 1b a8 5e |nswer%..|.. :...^|
|000046e0| 20 c8 99 20 22 57 69 6d | 70 45 78 74 5f 43 6f 6e | .. "Wim|pExt_Con|
|000046f0| 74 72 6f 6c 49 6d 6d 65 | 64 69 61 74 65 22 2c 2c |trolImme|diate",,|
|00004700| 32 2c 22 51 75 65 72 79 | 20 66 72 6f 6d 20 22 2b |2,"Query| from "+|
|00004710| 6f 75 72 5f 74 61 73 6b | 24 2c 71 75 65 72 79 24 |our_task|$,query$|
|00004720| 2c 62 75 74 5f 6f 6b 63 | 61 6e 63 65 6c 25 2c 30 |,but_okc|ancel%,0|
|00004730| 20 b8 20 61 6e 73 77 65 | 72 25 0d 1b b2 10 3d 28 | . answe|r%....=(|
|00004740| 61 6e 73 77 65 72 25 3d | 33 29 0d 1b bc 05 3a 0d |answer%=|3)....:.|
|00004750| 1b c6 05 3a 0d 1b d0 19 | f4 20 2a 2a 20 53 68 75 |...:....|. ** Shu|
|00004760| 74 64 6f 77 6e 20 74 61 | 73 6b 20 2a 2a 0d 1b da |tdown ta|sk **...|
|00004770| 14 dd 20 f2 73 68 75 74 | 64 6f 77 6e 5f 74 61 73 |.. .shut|down_tas|
|00004780| 6b 0d 1b e4 2c 20 c8 99 | 20 22 4d 65 73 73 61 67 |k..., ..| "Messag|
|00004790| 65 54 72 61 6e 73 5f 43 | 6c 6f 73 65 46 69 6c 65 |eTrans_C|loseFile|
|000047a0| 22 2c 6d 73 67 5f 68 61 | 6e 64 6c 65 25 0d 1b ee |",msg_ha|ndle%...|
|000047b0| 1f 20 c8 99 20 22 58 57 | 69 6d 70 45 78 74 5f 53 |. .. "XW|impExt_S|
|000047c0| 65 74 50 6f 69 6e 74 65 | 72 22 2c 30 0d 1b f8 21 |etPointe|r",0...!|
|000047d0| 20 c8 99 20 22 58 57 69 | 6d 70 45 78 74 5f 52 65 | .. "XWi|mpExt_Re|
|000047e0| 6c 65 61 73 65 50 6f 69 | 6e 74 65 72 22 0d 1c 02 |leasePoi|nter"...|
|000047f0| 26 20 c8 99 20 22 58 57 | 69 6d 70 45 78 74 5f 43 |& .. "XW|impExt_C|
|00004800| 6c 6f 73 65 44 6f 77 6e | 22 2c 6f 75 72 5f 74 61 |loseDown|",our_ta|
|00004810| 73 6b 25 0d 1c 0c 18 20 | c8 99 20 22 57 69 6d 70 |sk%.... |.. "Wimp|
|00004820| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 0d 1c 16 06 20 |_CloseDo|wn".... |
|00004830| e0 0d 1c 20 05 e1 0d ff | |... ....| |
+--------+-------------------------+-------------------------+--------+--------+
